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Conexão MSX 
- impressora 
gráfica 


Um dos maiores desafios para o usuá- 
rio da linha MSX é, sem dúvida alguma, a 
realização de uma cópia da SCREEN 2 
em uma impressora gráfica. 


Existem dois métodos de se fazer isso: 
o primeiro usa as tabelas da VRAM e o 
segundo testa diretamente os pontos na 
tela. 


O objetivo deste artigo é fazer uma 
comparação em termos de velocidade e 
complexidade dos dois métodos para um 
determinado tipo de cópia. 

Todas as rotinas apresentadas neste 
artigo foram desenvolvidas e testadas em 
um micro HOTBIT e em uma impressora 
Mônica da Elebra. 


A LPTOUT 


Esta é uma rotina importantíssima da 
ROM do seu MSX, pois é ela quem envia 
para a impressora o código do caracter a 
ser impresso. Para podermos utilizá-la 
corretamente, é necessário o uso de uma 
pequena subrotina em linguagem de má- 
quina. E, mesmo que você não tenha ex- 
periência no assunto, irá entendé-la fa- 
cilmente. 


Existe um registrador do Z-80 chama- 
do “acumulador” ou, simplesmente, re- 
gistrador “A”. A LPTOUT enviará para 
a impressora o código do caracter que es- 
tiver armazenado no acumulador, quando 
este for chamado através de um CALL, 
que é análogo a um GOTO do BASIC. 


Para armazenarmos no acumulador um 
determinado valor, fazemos uso da ins- 
trução LOAD, que significa “carregar”. 
A sintaxe desta instrução é LD A,XX. 
Feito isso, devemos chamar a rotina com 
um CALL relativo ao seu endereço de 
entrada, que, no caso da LPTOUT, é 
00A5H. 


Em último lugar, deverá haver o re- 
torno ao BASIC, o que é feito quando a 
instrução RET (RETURN) for executada. 

O nosso programa, em linguagem de 
máquina, ficará assim: 


E000 3EXX LD A,XX 
E002 CDAS00 CALL 00A5H 
E00s co RET 


A primeira coluna é relativa aos ende- 
reços; a segunda às instruções em hexade- 
cimal; e a terceira, aos menemônicos do 
Z-80. 

O endereço inicial da rotina foi defini- 
do com E000H por ser uma posição de 
memória relativamente alta e não reque- 
rer maiores cuidados na maior parte dos 
programas em BASIC. 

Para chamarmos a rotina através do 
BASIC, basta definirmos em uma chama- 
da USR seu endereço de entrada, por 
meio de um DEF USR. 

Feito isso, basta pokearmos em EO01H 
o código do caracter desejado e acessar- 
mos a rotina através de uma declaração 
USR, como, por exemplo, um 
G=USR(0). 


A CÓPIA 


Para entendermos como o primeiro 
método funciona, é necessário fazermos 
um pequeno estudo da VRAM do MSX, 
quando em SCREEN 2. 

Existem duas tabelas fundamentais pa- 
ra o nosso caso. Estas são a de padrões e a 
de cores. 

A tabela de padrões contém a imagem 
propriamente dita, inicia no endereço zero 
e termina em 6143, 


ANTÔNIO F. S. SHALDERS 


Os pixels do vídeo estão organizados 
de acordo com o esquema da figura 1, 
dispostos horizontalmente em octetos na 


seguinte ordem: o primeiro é formado pe- 


los pixels relativos às coordenadas 
(0,0)..(1,7), até o oitavo, que representa a 
sequência (7,0)...(7,7). O nono octeto é 


representado por (8,0)...(15,0) e assim su- 
cessivamente até o último octeto, de nú- 


mero 6144, que corresponde ao grupo 


(248,191)..(255,191). 

Cada um desses octetos pode ter so- 
mente uma cor, que está armazenada em 
uma tabela específica, que inicia em 8192 
e, também, tem 6144 bytes de compri- 
mento. Se mudarmos a cor de um único 


elemento de um octeto, a cor do octeto 


inteiro será modificada. 


Aliás, este é um dos poucos defeitos 


do MSX! 
O que esse primeiro método faz é jus- 


tamente pequisar essas duas tabelas e, 
após tratar corretamente os dados, haver 


a impressão. 


Voltando a examinar a figura 1, po- 
demos notar que os bytes relativos a cada 
octeto estão dispostos na horizontal, e is- 
so nos gera um grave problema: quando a 
impressora entra em modo gráfico, ela é 
informada que lhe será enviada uma ca- 
deia de n caracteres e estes deverão ser 
impressos no formato binário, que irá 
acionar uma determinada combinação de 


oito agulhas. O problema é que essas agu- 


lhas estão dispostas na vertical, sendo a 
agulha superior correspondente ao bit 
mais significativo e a inferior ao menos 


significativo. 


A maneira mais fácil de contomar o 
problema é fazendo uma impressão na 
vertical. Basta fazermos uma varredura 


adequada da tabela de padrões e imprimi- 
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la. Examine o programa da listagem 1. A 
varredura usada é justamente para este ti- 
po de impressão. A variável j contém o 
endereço de cada octeto a ser enviado pa- 
ra à impressora. 

O programa da listagem 2 usa este al- 
goritmo que agora lhes será explicado em 
detalhes. 

As duas primeiras linhas do programa 
montam a nossa rotina em linguagem de 
máquina na memória, a partir do endereço 
E000H, definindo o endereço de entrada 
da chamada USR. 

Na terceira linha, a cor de fundo da te- 
la é armazenada na variável F% e a linha 
60030 faz com que a impressora passe a 
trabalhar em modo EPSON, ajustando a 
entrelinha para oito pontos. 

A linha 60050 faz com que a impres- 
sora entre em modo gráfico, esperando 
sequências de 192 caracteres. 

Os loops fornecem a segiência correta 
de impressão dos octetos, sendo esses po- 
keados pelas variáveis J%, S1% e RP9%, 
respectivamente. 

É feita, então, a comparação com a cor 
de fundo, que decide ou não a impressão 
do octeto. 

A chamada da LPTOUT é feita na hi- 
nha 60090 e o CHR$(1) na linha 60110 
faz o avanço da linha, assim que a 
segiiência gráfica tenha sido completada. 
A última linha faz com que a impressora 
volte ao modo normal de operação. 

Observe que o programa da listagem 2 
não copia SPRITES, pois, para isso, seria 
necessária a consulta das tabelas de for- 
mação e cores dos SPRITES. 

Já pelo segundo método, as coisas fi- 
cam muito mais fáceis. Além de qualquer 
coisa ser copiada, a rotina é muito mais 
simples e objetiva. Basta fazermos uma 
varredura de todos os pontos do vídeo, 
através de dois loops e testar se a cor de 
fundo é igual à cor do ponto. Isso é feito 
com o auxílio de uma das funções menos 
utilizadas no BASIC — o POINT — e, nem 
por isso, é pouco eficiente. 

Cada ponto aceso na tela irá disparar 
uma agulha e a entrelinha será alterada 
para 1 ponto. O teste dos pontos é feito 
na linha 60079 da listagem 3. O restante é 
idêntico ao programa anterior. 

O primeiro método leva uma pequena 
vantagem quanto ao tempo de execução, 
mas convém citar que isto só é verdadeiro 
para uma impressão vertical e de di- 
mensões 192x256. 

A impressão horizontal já é bem mais 
difícil de se conseguir, pois o algoritmo de 
rotação da tabela de padrões é bein com- 
plexo, sendo a varredura radicalmente di- 
ferente para o primeiro método. Chama- 
remos cada grupo de oito octetos conse- 
cutivos de “grupo local”*(Vide figura 2). 


LISTAGEM 4 


10 FOR C=0 TO 31 

20 H=cx8 

30 FOR L= 23 TO 8 STEP -1 
40 K=256*L+H 

50 FOR X=7 TO O STEP -1 
60 J=K+K: PRINT J 

70 NEXT X,L,C 


LISTAGEM 2 


50000 * COPIA VERTICAL NORMAL (MSX) 
50001 * ANTONIO FERNANDO S. SHALDERS - 
1988 

60000 DEFINTA-Z:FOREN=OTOS:READCO: POKES 
HEO00+EN, CO:NEXT 

60010 DATA 62,0,205,165,0,201:DEFUSR=4H 
E000 

60020 F=PEEK (&HF3EA) 

60030 POKE&HF417,1:LPRINTCHRS(27);"A”;C 
HRS (8) 

60040 FORC=0TO31:H=Cx8 

60050 LPRINTCHRS (27) ;"K”;CHRS$ (192); CHR$ 
(0); 

60060 FORL=23TOOSTEP-1:K=256*L+H 

60070 FORX=7TOOSTEP-1:J=K+K:SL=VPEEK (J) 
: RP=VPEEK (J+8192) 

60080 IFRPMOD1I6<>FTHENPOKE&HE001,255ELS 
EPOKESHE001,SL 

60090 G=USR(0) 

60100 NEXTX,L 

60110 LPRINTCHRS$ (10); 

60120 NEXTC 

60130 LPRINTCHRS(27);"A”;CHRS$(13):POKE& 
HF417,0 


LISTAGEM 3 


50000 " COPIA VERTICAL NORMAL (MSX) 
50001 " ANTONIO FERNANDO S. SHALDERS - 
1988 

60000 DEFINTA-Z:FOREN=OTOS:READCO: POKE& 
HE000+EN, CO:NEXT 

60010 DATA 62,0,205,165,0,201:DEFUSR=&H 
E000 

60020 F=PEEK (&HF3EA) : POKE&HF417,1 

60030 LPRINTCHRS(27);"A”;CHRS(1) 

60040 FORXX=0TO255 

60050 LPRINTCHRS(27);"K”;CHRS(192);CHRS 
(0); 

60060 FORYY=191TOOSTEP-1 

60070 IFPOINT(XX,YY)=FTHEN60090 

60080 POKE&HE001,1:GOT0O60100 

60090 POKE&HE001,0 

60100 G=USR(0) 

60110 NEXTYY:LPRINTCHRS (10) ;:NEXTXX 
60120 LPRINTCHRS (27);"A”;CHRS(13):POKE& 
HF417,0 











TABELA DE PADRÕES DA SCREEN 2 














FIGURA 1 














GRUPO LOCAL (FORMADO POR 8 OCTETOS CONSECUTIVOS) 


8 OCTETOS VERTICAIS 
ir Al 


MSB LSB 
27 26 25 242 23 2 21 2% 














FIGURA 2 


BYTE 8xn 


8 
OCTETOS 


BYTE8xn+1 


(n = número natural entre O e 767) 








O nosso objetivo é tornar os octetos 
reais em octetos verticais, o que é conse- 
guido agregando-se-os bits de mesmo pe- 
so de cada um dos octetos reais: o primei- 
ro octeto vertical será formado pela con- 
catenação dos bits mais significativos dos 
octetos reais, e assim sucessivamente. 

Se usarmos um método numérico para 
tal, a rotina se tornará extremamente len- 
ta. Por isso, faço uso de um método alfa- 
numérico, pois, além de ser muito mais 
rápido, é compacto. 

O programa da listagem 4 faz exata- 
mente isso. A matriz alfanumérica BS, de 
dimensões 8x1, contém as strings binárias 
relativas aos oito octetos, sendo trans- 
formada na variável U$ em um octeto 
vertical. 

O resultado é armazenado no acumu- 
lador, sendo, posteriormente, impresso. 

O programa da listagem 5 faz o mes- 
mo tipo de cópia, usando o algoritmo do 
segundo método, sendo muito mais efi- 
ciente. Este programa não passa do mes- 
mo programa da listagem 3 com os loops 
alterados. 


A AMPLIAÇÃO 


Para fazermos uma ampliação, o pri- 
meiro método se torna extremamente ine- 
ficiente. 


No caso do primeiro método, se dese- 
jarmos uma impressão multiplicada por 
um fator de dois, teremos que ampliar um 
ponto dilatando-o na horizontal c na ver- 
tical. 

A expansão na horizontal é trivial de 
ser feita, pois basta imprimirmos duas ve- 
zes seguidas cada octeto. Mas para am- 
pliarmos na vertical, esbarramos em um 
problema: o código do octeto expandido 
passará a ter 16 bits e a impressora só tem 
oito agulhas. A solução é quebrarmos esse 
código em dois menores de oito bits, en- 
viando primeiro para a impressora os oito 
bits mais significativos, e, em seguida, os 
oito menos. 





O raciocino é o mesmo para am- 
pliações de fator 3 em diante (só que o 
primeiro método só permite ampliações 
múltiplas de 2). É como se a palavra 
“MSX” foss transformada | em 
“MMSSXX”, “MMMSSSXXX”, e assim 
por diante. 

Os programas da listagem 6 e 7 fazem 
isso pelo primeiro método e os restantes 
pelo segundo. 


O segundo método é muito mais ade- 
quado quando se trata de cópias que re- 
querem algoritmos mais sofisticados e são 
muito mais rápidos e fáceis de serem 
compilados, pois até o compilador 
COMP32 é capaz de fazê-lo. 

Por último, serão dadas tabelas para 
auxiliar a alteração do programa básico 
do segundo método para obtermos cópias 
ampliadas por um fator n e como fazer 
reversão de impressão para cada tipo. 
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LISTAGEA 4 
50000 * COPIA HORIZONTAL NORMA: 
50007" RNTONIO FERNANDO 5. 
988 
S0000 DEFINTA-Z2FOREN=O 
HEOO0+EN, COSNEXT 
DATA 62,0,205,145,0,201 














60020 F=PEEKCAHFSEA) 2POREAHPAI?, 
60030 LPRINTOSRS(27); A" sCHRS(B) 
40040 FORL=0TOZ33K=2568L 

60050 LPRIKTOSRS(27);“% 
»; 

S0040 FORC=OTOZABSTEPEZH=K+ 
60070 FORX=0 
60080 SL EX 
60090 SESCX)= 
(SL60),8) 
80100 IFRPAONIAO) 











CHRS(O) CARS 








EEX(H 
INGSCB, "O 












BATSAS 





NOLS(X)=8 INS(255) 


IoStsLS(S), 
au A, na 








“iodo FORX 
60070 IFPGINTO, r 
40080 POKERHEOO?, 1: 
60090 POKERHEOOT O 
40100 B=iSRt0) 
6010 NEXTKXELPR INTORR! 
60120 LPRINTCRRS(27); 
RESTO 










LISTABEM ó 


50000 * COPIA Fi 
50010 * ANTONIO 
1988 

40000 DEFINTA-Z:F0: 















FORC=0T0248S 
FORX=0T07:J=X+A 





A0100 SLSUO=R IGHTS(STRINGS(S 
(5L00),8) 

80170 IFRPHODIGOFTHERSLS0O=3INS(255) 
69:20 NEXTXSFORK=OTO7:A=K41 

60150 SOSENIDS(SLS(0),8, IMAIOSCSLSCT), 
A,1)+HIDSCSLS(2) A, 1SRIDSCSLS(3),A, D+ 
KIDS(SLS(4) A, DANIDSCSLS(5) A, 1 AATDS( 
SLS(4) A, 1)HALDSCSLSCT),8, 1) 

S0140 XSHIDS(SCS,R(T),4):FORA=TTOM:OS= 
BIOS(XS,8, 1):VS=S405+CS:NEXTA 

S0150 VSSRIGATS(YS, B):Y=VAL ("AB"+ VS) 
50140 POKERHEOO?, VEG=USR(O) 
50170 NEXTK, CELPRINTOR 
SOIBO LPRINTOHAS(27) 
HEAIT,O 
















Ra 


CHRS(13)2P0KER 


LISTAGEM 7 
50000 * COPIA VERTICAL AMPLIADA (NSX) 
50010 * ANTONIO FERNANDO 5. SHALDERS — 
1988 
40000 DEFINT R-7:F0R EN=0 TO SREAD CO: 
POKE RHEOOO+EN,COZNEXT 
60010 DATA 62,0,205,145,0,201:DEFUSR=BH 
E00o 
60020 F=PEEXIBHFSER) 
60030 LPRINT CHR$(27);" 
S0040 2(1)=1:R(21=5 











TO ZsH=048 
;CHR$(128) Dat 


60070 FOR 1 
ato FOR 
PEERAUERPIT 
SLS(T)=RI6 


3 TO O STEP-3:k=D568L+H 

TO O STEP-12d=X+RaSi (T)=Y 
R(J+8192) 
SESTRINGS(S, "0")+0 INS 












“ED 16 O F THEN SLS(T)= 


DSESLSCT),RCTO,A)2FOR Rei 
DSCAS(T),R,1) 
(Da s( 





3NEXT A 
ED=VALCE 








(USD, 





USR (0) :G=uBR (O 





LD: 











INT CHRSC O) FINEXT T, 





0160 LPRINT £; 
7 


PR$(27); "APS CHRSUIS) 




















IZONTAL AMPLIADA (M5X; 
ERNENDO 5. ShAt: É 





[=0TOS:RERI 





PORCA 


405 2 = 3RINTCHRS(Z7 
Hr4:7,0 





AÇÕES DE TRMANHO 
TAGEM 3 









3X DE AUMENTO 


HR$(27);"R "CA 








E007, 728070 601 





40030 1 
% pu 


TO 3:6=uUSR(O): 


4X DE AUMENTO 


40030 LPRIKT CHRS(27);"R"sCR 
R5t4) 

40050 LPRINT CHAStE7)- 
R$(0);ERRS(3); 








40050 PME BHEOO!, 1526070 60 
190 
40700 FOR 5=] TO 4rG=USR(O): 
NEXT 5 
CAR: 
dios 20RE AREOOI, 1: 
ER o 
40090 PORE AHEOOI,O 


POR: 
á0080 a &RE001,0: 


40090 PORE 


085: BASTA INVERTER- 
e 05 VALORES À E 


N 
ROUMULADOR (PORES). 








80100 FOR IR 
(OSINTK 
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Os Virus 
Binárius 





ção se propõe a apresentar a 
vocês assuntos gerais, de uma maneira in- 
formal, sem a utilização de linguagem de 
programação ou outros artifícios que fa- 
çam vocês, leitores, correr para o micro, 
apertar o botão de liga/desliga e perder o 
resto de suas vidas na frente do monitor 
de vídeo procurando uma solução para 
um problema ou digitando um programa. 

Epa! Você, aí, que já ia ligar a CPU 
(apelido carinhoso que eu dei ao meu 
MSX)! Resista à tentação! Volte! 

Bom, muito bom... 

O que eu proponho aqui é discutir 
qualquer coisa interessante que, às vezes, 
não damos muita importância. Vejamos. 
Alguém já ouviu falar de um tal Pascal? 
Não a linguagem, mas um certo senhor 
Blaise Pascal. Qual foi o primeiro compu- 
tador eletrôr construído? Quem des- 
cobriu o Brasil? Decerto não foi um mi- 
crocomputador! 











Vamos tentar falar sobre algo relacio- 
nado à informática, mas não com progra- 
mas, rotinas, etc 

Não sei se vocés já ouviram falar do 
“VIRUS BINARIUS”. Com o apareci- 
mento do primeiro computador, este ser 
foi acidentalmente criado. Não seguiu os 
passos evolutivos de outras criaturas nem 
caiu do espaço num disco voador. Este 
pequeno ser, vejam vocês, não é nem 
mesmo constituído de matéria, é total- 
mente invisível, mas contaminou o mundo 
todo. Ele pode estar, agora mesmo, incu- 
bado no seu micro. Ou pior: você pode já 
estar contaminado por ele!!! 


Quantos de vocês não perdem horas 
sentados à frente do micro digitando, jo- 
gando, ou mesmo olhando para o micro 
DESLIGADO, como se este fosse um 
troféu? Eu mesmo não pude resistir a es- 
crever este artigo usando um processador 
de textos num MSX, vejam só! 

Quanto é o fatorial de 5? Muitos vão 
responder: 

— Espera um pouco. 

Enquanto isso, as mãos se dirigem au- 
tomaticamente para um teclado e, após 
alguns RETURNs, BACKSPACES e ou- 
tros mais, responderão: 








ANDRÉ L. F. DE FREITAS 


— Cento e vinte. 

Certo. Mas porque usar o micro? 

A resposta é simples: não eram vocês, 
mas os VIRUS BINARIUS. Portanto, 
cuidado! Eles estão em toda parte, em to- 
das as teclas, em todo o foton disparado 
de um monitor de vídeo para dentro dos 
seus olhos. Destino final: o cérebro hu- 
í não tem mais solução. A conta- 
minação é total e pode causar muitos pro- 
blemas com os amigos, com a “patroa”, 
com os filhos e, até, com o papagaio que, 
de uma hora para outra, só saberá falar 
RUN, RUN, RUN... 


A cura ainda não foi encontrada, mas 
dizem que, após uns dois anos longe do 
micro, um computador jogado fora, todas 
as listagens de programa incineradas e, 
quem sabe, uma lavagem cerebral, o VI- 
RUS BINARIUS volta a incubar e hiber- 
na por um bom tempo, só voltando à ação 
ao sentir a proximidade de um micro- 
computador. Às vezes, nem isso funciona, 
como é o caso de um amigo meu que nem 
mais sequer consegue andar em linha re- 
ta... 


Isto tudo descrito acima é uma brinca- 
dera. O VIRUS BINARIUS não existe 
(será?!), mas o que eu pretendo com isto é 
exatamente falar de coisas diferentes, de 
maneira agradável, como havia dito no 
início do artigo. Esta é uma revista com 
autores ainda não conhecidos pelo públi- 
co, mas excelentes programadores e pos- 
suídores do nosso tão amado MSX. Pes- 
soas como vocês, que se propuseram a 
criar uma coisa nova no nosso mercado. 
Uma revista dedicada a todos aqueles que 
amam a programação e, principalmente, o 
MSX. Espero que a idéia agrade e que es- 
ta seção possa ter grande utilidade na vida 
de todos voc 

Daqui em diante, procuraremos explo- 
rar os mais variados assuntos e curiosida- 
des. 

Existindo ou não, o VÍRUS BINA- 
RIUS irá passear pelo seu computador, 
numa aventura emocionante, onde ele 
será o vilão e você o mocinho. O cenário 
não poderia deixar de ser outro: o seu 
computador e periféricos. 











Aguarde os próximos números. 





Transfira seus 
programas de 
disco para fita 
e vice-versa 


Grande parte dos usuários da linha 
MSX está passando seus arquivos de fita 
para disco, pois os discos oferecem maior 
rapidez e segurança no armazenamento de 
dados. 

Quando o programa a ser gravado em 
disco for em Basic, não teremos dificul- 
dades para efetuar a leitura da fita e 
gravá-lo no disco. 

Em se tratando de programas escritos 
em assembler, a operação exige um pouco 
mais de cuidados e atenção, principalmen- 
te no que se refere aos endereços. 

Visando facilitar este trabalho, publi- 
camos um programa cuja função é ler um 
programa da fita cassete e gravá-lo no 
disco ou vice-versa. 

Programas que estejam gravados em 
fita com proteção, ou seja, sem header, 
não poderão ser transferidos para o disco 
com o auxílio deste programas. 

Pensando na necessidade que o usuário 
possa vir a ter, o programa também pos- 
sibilita transferências de programas de 
disco para fita cassete. 

O funcionamento do programa é bas- 
tante simples. 


FUNCIONAMENTO 
Ao completar o carregamento, é apre- 
sentado um menú com três opções, que 


permite selecionar qual a operação que 
deve ser efetuada. 
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CÓPIA DE FITA PARA DISCO 


No menú, após selecionar a opção 1, 
prepare o gravador e pressione uma tecla. 
Será, então, lido o header do programa e 
serão apresentados na tela os endereços e 
os comandos para leitura do programa da 
fita e gravação no disco. 

Conhecidos os endereços, retorne a fi- 
ta até o início e posicione o cursor no co- 
mando para leitura, pressionando RE- 
TURN. Será iniciada a leitura. 

Terminada a leitura, posicione o cursor 
no comando para gravação no disco, 
pressionando, novamente, RETURN. 

O programa lido das fita encontra-se 
gravado no disco. 

Alguns erros podem acontecer durante 
este processo, como erro de leitura (pro- 
blema com a fita, volume, etc.), erro de 
gravação (disco protegido, não formata- 
do, etc.) e caso o programa não seja do 
formato assembler. 

Todo programa em BASIC tem sua 
área na memória a partir do endereço 
&h8000, sendo que alguns programas em 
assembler também possuem o mesmo iní- 
cio. 

Neste caso, haverá a necessidade de 
carregar o programa após cada trans- 
ferência. 


MARCELO FONTOLAN 


A necessidadae de um novo carrega- 
mento será informado pelo próprio pro- 
grama, através das mensagens “TECLE 
F4” e “TECLE FS”, para os casos em que 
o arquivo copiado se sobreponha ou não, 
respectivamente, ao copiador. 


CÓPIA DE DISCO PARA FITA 


Ao solicitar transferência de disco pa- 
ra fita, será apresentado o diretório do 
disco e solicitado o nome do programa do 
qual se deseja efetuar a cópia. 


Na tela, serão apresentados os coman- 
dos para leitura do programa do disco e 
gravação em fita, já com os endereços. 

O cursor deverá ser posicionado no 
comando para leitura e depois no coman- 
do para gravação, prestando-se atenção 
para que o gravador esteja pronto para 
efetuar a gravação. 


O PROGRAMA 


O programa está dividido em subpro- 
gramas, a fim de facilitar a compreensão. 

A rotina em linguagem de máquina 
efetua a leitura de header do disco ou da 
fita e está presente no programa através 
das linhas DATA. 

Este programa, devido à sua função, 
só opera em sistemas que possuam unida- 
de de disco. 


CPU 








O * Harcelio Fontolan 

1 * Itajai, 25 de janeiro de 1988 

2 * HYPER COPY 

3 * Copiador disco-fita-Disco VI.0 

10 * Limpa tela 

20 CLS:KEYOFF:SCREENO:COLORIS,1,] 

3 * Define teclas de funcao 

40 FOR F=] TO 3: KEY Fº": NEXT F 

50 FOR F=6 TO 103 KEY F,"": NEXT F 

40 KEY 4, "RUN"+CHR$(34)+"HYPER"+CHRS(34 
J+CHR$C13) 

70 KEY 5,"RUN“+CHRS(13) 

80 * Apresentacao do Menu principal 

90 PRINT * 








CATE 0,2 : PRINT º. 


100 LOCATEI,1 acena HP 
ER COPY=== VI.O ===-"5 PRINT 3 PRINT : 






NO PRINT: PRINT TAB(IO) "Digite:” 

120 * Opcoes do Menu 

130 PRINT: PRINT TAB(5) “1 --) Copia de 
Disco p/ Fita” 

140 PRINT: PRINT TAB(5) “2 --) Copia de 
Fita p/ Disco” 

150 PRINT: PRINT TAB(5) "B --) Sair” 
140 AS=INKEYS: LF AS="" THEN 140 












170 * Analiza opcao desejada 

180 IF A! OR AS="b” THEN ENO 

190 1F AS="1" THEN 230 

200 IF AS="2" THEN 880 

210 GOTO 140 

220 * Copia de Disco p/ Fita 

230 CLS 

240 PRIN Copia de Disco p/ F 


ita = 
250 * Apresentacao do diretorio 

260 PRINT: FILES 

270 * Espera nome do arquivo 

280 PRINT: PRINT : LINE INPUT “Digite o 
nome do arquivo: “;N5 

290 * Desvia programa casa tenha erro 
300 ON ERROR GOTO 470 

310 * Abre arquivo 

320 OPEN NS FOR INPUT ASK 

330 * Obten dados sobre o arquivo 

340 F=ASCCINPUTSCI HD) 

350 IF F()254 THEN 790 

360 XS=INPUTS (6H) 

370 * Fecha arquivo 

380 CLOSERT 

390 * Calcula parametros 

400 CLS 

410 PI=(ASC(MIOS(XS,2,1)))4256+(ASC(NIO 
$(X8,1,1))) 

420 PF=(ASC(MIDS(XS,4,1)))4256+(ASC(MID 
5(X8,3,1))) 








430 PES(ASC(MIDS(XS,6,1)))8256+(ASC(MID 
$045,5,1)) 

440 TH=(PE-PD+ 

450 * Transforma dados decimais em Hex. 
460 THS=RIGHTS("0000"+HEXSCTH) 4) 

470 PIS=HEXS(PI):PFS=HEXSCPF)PES=HEXS( 
PE) 

480 * Apresenta dados sobre o arquivo 
490 PRINT “Arquivo :";N$ 

500 PRINT “Formato :º;: IF F=254 THEN P 
RINTºASSEMBLER” 

510 PRINT “Endereco Inicial : &Hº;PIS 
520 PRINT “Endereco Final : &H";PFS 
530 PRINT “Ponto de Execucao : &H";PES 
540 PRINT “Tamanho : RH"; THS 

550 * Apresenta comando de leitura 

560 PRINT: PRINT: PRINT “Bload”;CHRS(34 
);NS;CHRS(34) 

570 * Apresenta comando de gravacao 

580 PRINT: PRINT “Bsave”;CHR$(34); 
"SLEFTS(NS,6);CHRS(34);" AH! sPIS; 
PFS;",AH"sPES 

590 PRINTEPRINT 

600 * Apresenta tecla a ser pressionada 
610 IF PIX37000! THEN PRINT “Tecle “4º 
«" ELSE PRINT “Tecle “F5'.” 

620 * Coloca o cursor em posicao 

630 LOCATE 0,7 

640 * Termina a execucao 















450 END 
660 * Tratamento de erros 
670 CLOSER 





710 JF ERR=62 THEN PRINT ” O Drive espe 
cificado nao existe !* 

720 IF ERR=56 THEN PRINT “ O Nome do ar 
quivo esta incorreto !* 

730 IF ERR=60 THEN PRINT ” O Disco esta 
coa problema de formato !” 

740 IF ERR=53 THEN PRINT “ O Arquivo na 
o existe !* 

750 PRINT: PRINT “ Tecle algo para cont 
inuar ..." 

760 AS=INKEYS: IF AS="" THEN 760 

770 RESUME 20 

780 ' Tratanento de arquivos nao BSAVE 
790 CLOSEM 

800 CLS 

810 PRINTO-—-————— Tratamento de Erros 

820 PRINT: PRINT 

830 PRINT “ O Arquivo especificado rao 

se encontra gravado cor o BSAVE do NSX 
DISK BASIC!” 

840 PRINT: PRINT ” Tecle algo para cont 
inuar ...” 
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850 AS=INKEYS: IF A$="" THEN 850 
860 GOTO 20 

870 * Copia de Fita p/ Disco 
880 RESTORE 890 

890 DATA CD,E1,00,08,21,00,C0,06, 
C5,C0,E4,00,C1,E1,08,77,23,10,F4 
00,08,21,10,C0,06,06,E5,C5,CD,EM, 
E1,08,77,23,10,F4,€9 

900 * Armazena dados eu ASSEMBLER 
P10 FOR P=0 TO 42 

920 READ AS 

930 POKE (8HE050)+P VAL("AH"+AS) 
940 NEXT P 

950 DEFUSR=8HEOSO 

960 DEFFNPE(X)=PEEK (X)+256%4PEEK (X+1) 
970 * Apresentacao 


10, 
+ £D 
(0) 


[5] 
EI, 
,E4,00,C1, 











980 CLS 

990 PRINT Copia de Fita p/ Di 
sco - 

1000 PRINT : PRINT * Prepare 
o Gravador --—— 






1010 PRINT = PRINT 
uando pronto . 
1020 AS=INKEYS: * THEN 1020 
1030 * Leitura de parametros 

1040 X=USR(0): MOTOR OFF 

1050 * Calculo do none 

1060 FOR R=(&HCOOR) TO (AHCOOF) 
1070 PS=CHRSCPEEKCR)) 

1080 NS=NS+PS 

1090 NEXT R 

1100 * Obten formato 

TIO F=PEEK(AHCO00) 


E tecle algo q 




















| 
CHEGA DE SOLIDÃO 


SEMPE, Cirandão, 
forum * 80 


Videotex to, 
SBMPA Sut, Brvanda, 
e mais o mundo inteiro no teciado 
do set Micro. 


1120 IF Ft)208 THEN 20 

W30 * Calcula parametros 

1140 PI=FNPE(&HC010):" Ponto inicial 
1150 PF=FNPE(AHCOI2):"Ponto final 

1340 PE=FNPE(AHCO14):"Ponto execucao 
N70 TH=(PE-PID+ 

180 * Transforma dados decimais em HEX 
1190 PIS=HEXS(PI):PFS=HEXSCPF):PES=HEXS 
(PE): THS=RIGHTS("0000"+HEXSCTH), 4) 

1200 * Apresenta dados sobre o arquivo 
1210 CLS 

1220 PRINT “Arquivo : “;NS 
1230 PRINT "Formato : ASSEMBLER” 

1240 PRINT “Endereco Inicial : &H“;PIS 
1250 PRINT “Endereco Final : 8Hº;PFS 
1260 PRINT "Ponto de Execucao : AH";PES 
1270 PRINT “Tamanho = AH”; THS 

1280 * Apresenta comando de leitura 
1290 PRINT : PRINT : PRINT “Bload”;CHRS 
(34); "CAS: ";NS;CHRSCIO) 

1300 * Apresenta comando de gravacao 
1310 PRINT : PRINT : PRINT "Bsave";CHRS 
(34); NS; CHRS(34) "AH" sPIS; AHºSPFS;", 
AHº;PES 

1320 PRINTEPRINT 

1330 * Apresenta tecla a ser pressionad 








a 

1340 IF PJ(37000! THEN PRINT “Tecle “Fá 
*.* ELSE PRINT “Tecle “FS.” 

1350 * Coloca cursor eu posicao 

1360 LOCATE 0,7 

1370 * Termina a execucao 

1380 ENO 












Temos kits (BRoptfe, FISX, BPI -PE) 
que habifí£ta O seu micro a cone- 


- Eh - 
ctar qualqver correto efetrônico 


SISTEMA 


- q) ow base de dados 
com comunicação 
d assincrona- 


FONES (on)35-2750 (VOZ) 
374107 (MODEM) 








Gerando sons 


no MSX 


GERANDO SONS NO MSX 


O seu MSX possui um processador de 
áudio modelo AY -3-8910, produzido pe- 
la General Instruments (EUA). Este inte- 
grado é do tipo LSI (Large Scale Integra- 
tion) e, embora não seja o processador de 
áudio mais sofisticado do mercado, é um 
dos mais facilmente encontráveis, além de 
ser de fácil implementação e operação. 

O BASIC possui uma instrução que 
permite trabalharmos diretamente com os 
seus 14 registradores, o SOUND, cuja 
sintaxe é SOUND REGISTRADOR, 
VALOR. 

Além do SOUND, existe a macro-lin- 
guagem PLAY, que nos permite fazer 
bons trabalhos, desde simples vinhetas até 
acordes. 

O processador de áudio, ou simples- 
mente PSG (Programmable Sound Gene- 
rator), possui 3 canais, com 8 oitavas ca- 
da, num total de 96 notas musicais dis- 
poníveis, além dos geradores de ruído e 
envoltória. 


O PSG também controla a leitura de 
dados do gravador e as portas multi-uso 
de oito bits, que são as entradas para 
joystick. 


COMO GERAR UM TOM: 


Para gerarmos um tom de frequência 
pré-determinada em um canal de áudio, 
devemos carregar nos registradores rela- 
tivos aos ajustes de fregiência fino e 
grosso do canal em questão, selecionar a 
envoltória desejada, o volume de saída e a 
atuação ou não do misturador de canais. 


O maior mistério para muitos é como 
calcular os valores necessários à carga dos 
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registradores de ajuste de frequência, o 
que é, na realidade, muito simples, pois 
basta aplicarmos a seguinte fórmula, a fim 
de obtermos o valor principal: 


N=INT(C/F/32), 


onde C é o clock do seu computador, em 
hertz e F é a frequência desejada. 

Os clocks do Hotbit e do Expert são 
3579545 Hz e 3575611 Hz, respectiva- 
mente, ou seja: aproximadamente 3.58 
MHz. 


Os valores que devem ser atribuídos 
aos registradores de ajuste fino (AF) e 
grosso (AG) podem ser facilmente obti- 
dos pelas expressões abaixo: 





AF = N MOD 256 
AG = N256 


É bom notar que a resolução das 
fregiiências obtidas é inversamente pro- 
porcional à fregiência de maneira expo- 
nencial, pois, à medida que aumentamos a 
fregiiência, a resolução diminui. 

Na faixa dos 100 Hz, por exemplo, a 
resolução chega a ser melhor que 1 Hz. Já 
na faixa dos 5 KHz, a resolução já cai pa- 
ra cerca de 400 Hz, logo não é muito ló- 
gico programarmos o PSG para gerar 
tons alternados de 5.000 Hz e 5.010 Hz, 
por exemplo, pois os dois tons gerados 
seriam idênticos. 

A menor fregiência que pode ser ge- 
rada é de 4 Hz e a máxima vai além de 60 
Hz, o que não adianta muito, pois a faixa 
audível vai somente até cerca de 16 KHz, 
se seu ouvido for muito bom! 


A tabela 1 exibe os registradores do 
PSG e suas respectivas funções: 











REG. FUNÇÃO 
o A.F. canal À 
1 A.G. canal A 
2 AF. canal B 
3 A.G. canal B 
4 A.F. canal C 
5 AG. canal C 
6 Ajuste de freq. centr. do ruído 
7 Controle do misturador 
8 Volume do canal A 
9 Volume do canal A 
10 Volume do canal C 
n A.F. da freg. da envolt. 
12 A.G. da freg. da envolt. 
13 Tipo de envoltória 





Tabela 1: Os 
AY-3-8910. 


registradores do 


MAIS SOBRE O PSG: 


O PSG possui um gerador de ruído 
branco que pode ser usado em conjunto 
ou não com os três canais analógicos. 


O chamado ruído branco é caracteri- 
zado por uma mistura aleatória de 
frequências de amplitudes iguais ou não. 
É exatamente o chiado que aparece em 
um aparelho de televisão quando sintoni- 
zamos um canal livre. Efeitos muitíssimo 
interessantes podem ser conseguidos com 
o uso racional deste recurso do 
AY-3-8910. 


Um ponto forte do nosso processador 
de áudio é, sem dúvida alguma, a capaci- 
dade de controle da envoltória. Mas o que 
é envoltória? A envoltória de um som (ou 
envelope, como dizem alguns) é a forma 
com que a intensidade ou amplitude varia 
em função do tempo 


É graças às diferentes formas de en- 
voltórias que podemos distinguir o som de 
uma guitarra do de uma flauta, mesmo 
que ambos sejam exatamente da mesma 
fregiência. 

É claro que existem infinitos tipos de 
envoltórias, sendo estas responsáveis pelo 
timbre e nuances dos sons. A envoltória 
pode ser representada desde uma função 
constante até funções ultra complexas. 

O nosso PSG não pode simular todos 
esses tipos de envoltórias, mas pode simu- 
lar qualquer combinação de envoltórias da 
família “dente de serra”, que inclui a 
triangular e a constante, gerando efeitos 
que chegam a ser estonteantes. 

O som das ondas do mar, por exemplo, 
é caracterizado por um ruído branco, cuja 
envoltória é da família senoidal (na reali- 
dade, é uma sobreposição de várias senói- 
des aleatórias), mas podemos obter ótimos 
resultados com a envoltória triangular! 

Já o som de uma explosão ou de um 
sino tem como envoltória uma função ex- 
ponencial inversa, do tipo Y = 1/ X, mas 
podemos obter resultados muito próximos 
disso com uma envoltória do tipo dente de 
serra, com a rampa negativa, o que carac- 
teriza um início abrupto, seguido de um 
decaimento suave do som. 

O registrador responsável por isso é o 
13 e podemos escolher oito tipos de en- 
voltórias de família dente de serra e cons- 
tante, ou algumas combinações destes. 

A tabela 2 mostra os tipos de envoltó- 
rias com as quais podemos programar o 
PSsG. 

As fregiiências do gerador de ruído e 
do gerador de envoltórias também devem 
ser determinadas corretamente, a fim de 
obtermos resultados satisfatórios. 

O método usado para tal é semelhante 
ao do ajuste dos canais analógicos de saí- 
da. Para o ajuste da frequência dominante 
do ruído branco, não aconselho a usar 
fórmulas de espécie alguma, pois é melhor 
escolhermos “de ouvido” o que mais nos 


agradar. Os valores possíveis para carre- 
garmos o registrador 6 variam de O a 31, 
sendo que, quanto maior este valor, mais 
grave é o tom dominante. 

Já para o ajuste de freguência da en- 
voltória, necessitamos de uma fórmula do 
mesmo tipo da que mostramos para o 
ajuste dos canais analógicos de saída: 


N=C/(1100*F) 


Com esta fórmula, podemos obter 
fregiiências desde 0.1 Hz! 

Os valores a serem armazenados nos 
registradores de ajuste fino e grosso são 
achados da mesma maneira descrita ante- 
riormente para os canais analógicos. 

É importante notar que o gerador de 
envoltórias está ativo somente quando o 
volume do canal está no máximo. 


O CONTROLE MISTURADOR: 


O objetivo deste controle é combinar, 
selecionar, ativar ou deativar os canais de 
som e os geradores de envoltória e ruído. 
Esta seleção é feita através do valor atri- 
buído ao registrador 7 do PSG. 


Cada bit deste valor tem uma função 
específica e, para a parte sonora, são usa- 
dos apenas os bits de O a 5. Os bits 6 e 
7 são usados na verificação dos estados 
das portas multi-uso. 

Convém informar-lhes que os bits 
realtivos a este registro são ativos em ze- 
ro, e suas funções são mostradas na tabela 


é 

Se desejarmos habilitar os canais A e 
B com somm puro (sem ruído) e o canal C 
com ruído, devemos configurar o regis- 
trador 7 com o valor &B 00011100, ou 
seja: SOUND 7,56. Um canal pode ser 
usado para gerar tom e ruído siníúltanea- 
mente, mas não podemos ter mais de duas 
envoltórias diferentes nos três canais. No 
caso de termos duas, uma terá que ser, 
obritoriamente, uma função constante, ou 
seja: o volume do canal em questão de- 


verá ser menor qu el6. 

Existem diversos editores musicais e 
sonoros para o MSX e alguns de altíssimo 
desempenho, como por exemplo, o 
SOUND (p/disco) e o SUPER SYNTH 
(na minha opinião, o melhor). Se você não 
possuir nenhum desses dois programas, 
não se desespere, pois o programa da lis- 
tagem 1, se usado com bom senso, pode 
trazer resultados muito bons na elabo- 
ração de sons complexos. 

Escrevam-nos enviando sugetões ou 
em caso de dúvidas, pois o objetivo desta 
revista é auxiliar o usuário da linha MSX. 








REG. 13 ENVOLTÓRIA 
0,1,2,3€e9 NM, Sa 
4,5,6,7€ 15 4 

8 Lihdahh 

10 NAM 
o! q 

12 VMA 
13 eis 
14 LASÃAS 





Tabela 2: O registrador 13 e as envoltó- 
rias. 


BIT FUNÇÃO 
EM ZERO 


QUANDO 





Habilita o canal A 
Habilita o canal B 
Habilita o canal C 
Habilita ruído no canal A 
Habilita ruído no canal B 
Habilita ruído no canal C 


utunHo 





Tabela 3: Funções dos bits O a 5 do regis- 
trador 7 do PSG. 
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LEA 
PARTICIPE 








CPU 





10 REM 

20 REM REVISTA CPU - MAIO 1988 

30 REM ANTONIO FERNANDO SHALDERS 

40 REM 

50 REM GERANDO SONS NO H5X 

100 KEYOFF:SCREENO:COLORTS, 1:CLEAR 

No PRINT “HOTBIT OU EXPERT (H/E)":PRIN 
T 


120 AS=INKEYS:IF AS="H" OR AS="h" THEN 
(=3579545H ELSE IF AS="E" OR AS="e” THE 

N C=357561 18 ELSE 120 

125 PRINT"E FREQUENCIA (4 a 14000)", "x 

VOLUME (0 a 16) (16 liga a envoltoria)“ 
:PRINT 

130 PRINT “CANAL Az": INPUT “FREQUENCIA, 
VOLUME “;FA, VAZPRINT 

140 1F FR=0 THEN FA=4 

150 PRINT “CANAL B:"z INPUT “FREQUENCIA, 

VOLUME “sFB,VB:PRINT 

160 IF FB=0 THEN FB=4 

170 PRINT “CANAL C:": INPUT “FREQUENCIA, 
VOLUME “;FC,VC:PRINT 

180 IF FC=0 THEN FC=4 

190 NA=INT(C/FA/32):NB=INT(C/FB/32):NC= 

INT(C/FC/32) 

200 FR=NA NOD 256:GR=NA N 256 

210 FB=NB MOD 254:68=NB N 256 

220 FC=NC MOD 256:0C=NC 1 256 

230 INPUT “FREG. DOMINANTE DO RUIDO (0- 

57) “sFREPRINT 

240 INPUT “TIPO DE ENVOLTORIA ";TESPRIN 
T 

250 INPUT “FREQ. DA ENVOLTORIA (MIN=,1) 
“sMEZPRINT:IF ME=OTHENHE=.] 

260 NE=C/(1N00XWE):FE=NE MOD 256:6E=NE 
1256 

270 PRINTºTOM ATIVO EM A (5/N) “; 

280 GOSUB690:IF AS="S" THEN TA=0 ELSE 1 

F AS="Nº THEN TÃ=] 

281 PRINT AS:PRINT 

290 PRINTºTOM ATIVO EM & (S/N) "; 

300 GOSUB490: IF A$="5" THEN TB=0 ELSE 1 

F R$="Nº THEN TB=2 

301 PRINT AS:PRINT 

310 PRINTºTOM ATIVO EM C (S/N) “; 

320 GOSUB490: IF A$="S" THEN TC=0 ELSE 1 

F AS="Nº THEN TC=4 

321 PRINT AS:PRINT 

330 PRINT"RUIDO ATIVO EM A (S/N) *; 

340 GOSUB490:IF AS="S" THEN RA=0 ELSE I 
F AS="Nº THEN RA=8 

341 PRINT AS:PRINT 

350 PRINT"RUIDO ATIVO EM B (S/N) *; 

360 GOSUB490:IF AS="S" THEN RB=0 ELSE 1 
F AS="Nº THEN RB=16 

341 PRINT AS:PRINT 

370 PRINT"RUIDO ATIVO EM C (S/N) *; 

380 GOSUB490: IF AS="S" THEN RC=0 ELSE T 
F AS="Nº THEN RE=32 











381 PRINT AS:PRINT 
390 H=0:N=TASTE+TCHRASRBARCCLS 

400 SOUND O, FA:PRINT"SOUNO 0, ";FA 
410 SOUND 1,6A:PRINTSOUND 1,º;6R 
420 SOUND 2,FB:PRINT"SOUNO 
430 SOUND 3,68:PRINT"SOUND 





440 SOUND 4, FREPRINT"SOUND 
470 SOUND 7,M:PRINT"SOUND 7, ";M 

480 SOUNO 8, VA:PRINT"SOUNO 8, ”;VA 

490 SOUND 9,VB:PRINT"SOUND 9,º;UB 

500 SOUND 10, VC:PRINTSOUNO 10, *; VC 
510 SOUND 11,FESPRINT“SOUND 11,º;FE 
520 SOUND 12,6E:PRINT"SOUNO 12, ";6E 
530 SOUND 13, TESPRINT"SOUND 13, ";TE 
680 PRINTSTRINGS(13,95)2ENO 

690 AS=INKEVS:IF ASC)"SANDASC) "NºANDAS 
nº THEN 690 

OR AS="Nº THEN RETURN 









— MÁXIMAS E MÍNIMAS 


Programação estruturada 


Esta é uma nova coluna, numa revista 
também nova e, como tal, vamos começar 
dizendo quais são os nossos objetivos. 

Nesta coluna serão discutidas dicas 
e técnicas de programação de interesse do 
principiante e daqueles já mais avançados. 
Será uma coluna aberta a críticas e su- 
gestões, que deverão ser enviadas à revis- 
ta em nome desta coluna. 


Hoje, começaremos discutindo sobre 
um assunto que, para muitos, parecerá 
óbvio, mas, ainda assim, é importante pa- 
ra o principiante e até para alguns que já 
não são tão principiantes. 

Vamos, pois, falar sobre a progra- 
mação estruturada. Esta técnica, tão em 
moda nos últimos anos, nada mais é do 
que um método de facilitar o trabalho do 
programador através da subdivisão de um 
programa em subprogramias mais simples, 
todos eles encadeados logicamente. 

Muita gente pensa que só, se pode 
programar estruturadamente em Pascal, 
C, Forth, ou outra linguagem criada, des- 
de a sua concepção, para este tipo de pro- 
gramação. No entanto, podemos progra- 
mar estruturadamente em qualquer lin- 
guagem, até em assembler. Um bloco po- 
de chamar, ou até conter, outros blocos, 
mas, uma vez chamado um bloco, este de- 
ve fazer a sua tarefa e retornar o coman- 
do ao que o chamou. Esta descrição é ba- 
sicamente, a descrição de uma sub-rotina, 
só que, com a restrição de que o ponto de 
entrada da mesma deve ser único, e, em- 
bora possa ter diversas saídas, todas de- 
vem retornar ao mesmo ponto. 

Os tipos básicos de blocos são os se- 
guintes: decisão, repetição definida, repe- 
tição indefinida ou condicional e bloco li- 
near. O primeiro é o equivalente em Basic 
a um bloco if... then... else, que executa 
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uma de duas ou mais ações, dependendo 
de uma condição dada. O segundo é o 
equivalente à contrução for... next, que 
repete um conjunto de instruções por um 
número de vezes determinada. O terceiro 
seria um bloco que repete um grupo de 
instruções até que uma condição seja sa- 
tisfeita. Finalmente, o bloco linear é qual- 
quer grupo de intruções sem nenhum des- 
vio. As descrições anteriores fazem 
menção a instruções, mas, o mesmo é vá- 
lido, igualmente, para blocos completos, 
ou seja, um conjunto if... then... é consi- 
derado como uma única instrução, assim 
como uma instrução gosub o é. 

O bloco deve sempre ser fácil de en- 
tender. Se um bloco está ficando muito 
complicado é hora de o subdividir em blo- 
cos mais simples. Do mesmo modo, o blo- 
co deve ter apenas uma função e esta de- 
ve estar claramente definida. Estes blocos 
devem ser sempre precedidos de co- 
mentários explicativos e, nos pontos mais 
complexos, ter comentários específicos ao 
ponto em questão. Estes comentários po- 
dem parecer supérfluos, mas são a princi- 
pal ajuda na hora de modificar ou depurar 
um bloco ou programa feito há algum 
tempo. 

Uma outra vantagem de usar a pro- 
gramação estruturada é que os blocos são, 
em geral, independentes do programa 
como um todo e, assim, poderão ser usa- 
dos em outros programas, facilitando o 
desenvolvimento. Podemos e devemos, 
pois, formar uma biblioteca com os blocos 
mais úteis para utilização posterior e, 
aqui, vemos as vantagens dos comentários 
e de programar usando blocos auto-sufi- 
cientes. 

Vamos, agora, dar exemplos do dito 
acima, com alguns trechos em Basic, sen- 
do que tudo que for dito é válido para 
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qualquer outra unguagem. 
BLOCO DE DECISÃO 


10 LET A=5: REM VARIAVEL QUE 
CONTEM O VALOR 

20 REM O BLOCO SEGUINTE VERI- 
FICA SE A QUANTIDADE EM A E 
SUPERIOR A UM VALOR DETER- 
MINADO 

40 IF A > LIMITE THEN PRINT 
“SUPERIOR” ELSE GOSUB 333 

50. 


60. 

333 LETA=A+1 

334 PRINT “VALOR DE ="; A 
335 RETURN 


Como podemos ver no trecho acima, a 
linha 40 executa uma de duas ações, de- 
pendendo de uma decisão, sendo que, 
após, qualquer delas continua no mesmo 
ponto, ou seja, na linha 50. Se houvesse 
necessidade de executar mais de uma ins- 
trução em qualquer das opções, estas de- 
veriam ser agrupadas dentro de uma 
sub-rotina e chamada dentro do bloco de 
decisão, como podemos ver na instrução 
que segue o else. Verifique que todos os 
pontos importantes estão comentados no 
programa, o que nos permite entendê-lo a 
qualquer altura. 


BLOCO DE REPETIÇÃO DEFINI- 
DA 


OS LET A=1 

10 FOR I=1 TO 10; REM CALCULA 
OS FATORIAIS ATE 10 

20 LET A=A*1 

30 PRINT LA : REM IMPRIME O 
NUMERO E SEU FATORIAL 

40 NEXT I 











No programa acima, o bloco entre as 
linhas 10 e 40 é repetido um número de- 
terminado de vezes. Esse número pode 
ser uma constante ou ser passado numa 
variável, mas é sempre conhecido na en- 
trada. 


No bloco de repetição indefinida, ao 
contrário do caso anterior, o número de 
vezes a repetir é desconhecido e depende 
de que se cumpra uma condição determi- 
nada. Essa condição pode ser testada no 
início ou no fim do bloco, dependendo do 
efeito desejado. 


BLOCO DE REPETIÇÃO INDEFI- 
NIDA é 
TESTE DO INÍCIO 


10 IF A=5 THEN GOTO 50 : REM 
TESTE INICIAL. SAI DO BLOCO SE 
SATISFEITA A CONDICAO 

20 PRINT “APERTE UMA TECLA 
NUMERICA” 

30 INPUT A 

40 GOTO 10 A 

50 PRINT “VOCÊ BATEU O NUME- 
RO CERTO” 


BLOCO DE REPETIÇÃO INDEFI- 
NIDA 
TESTE NO FINAL 


10 REM INICIO DO BLOCO 
20 PRINT “APERTE UMA TECLA 
NUMÉRICA” 

30 INPUT A 

40 IF A < > 5 THEN GOTO 10 : 
REM REPETE SE CONDIÇÃO NÃO 
VÁLIDA À 

50 PRINT “VOCÊ BATEU A TECLA 
CERTA” 

Como se vê nos exemplos acima, cada 
bloco é uma unidade lógica independente 
e poderá ser usado em outros programas 
com poucas ou nenhumas modificações. 
Os exemplos dados podem servir de mo- 
delo para você criar os seus próprios blo- 
cos, modificando, apenas, as condições e 
as instruções abrangidas pelos mesmos. 

Finalmente, para aqueles que estão 
achando que os comentários só ocupam 
espaço e que as sub-rotinas tornam o 
programa lento, aconselhamos a fazer o 
programa do modo indicado e, após estar 
pronto, remover os comentários de uma 
cópia que será usada para rodar. 

As sub-rotinas devem ser colocadas no 
início do programa, pois, quando o Basic 
procura um número de linha, começa pela 
primeira linha do programa e continua a 
pesquisa, uma a uma, até encontrá-la e, 
assim, se as sub-rotinas estiverem no iní- 
cio, serão encontradas mais rapidamente. 

Vamos, agora, experimentar o novo 
tipo de programação até a próxima 
edição, onde teremos novas dicas de como 
aproveitar melhor as linguagens disponí- 
veis em nosso micro. 

Até a próxima. 





CAPS LOCK 


Muitos programas em Basic, ao solici- 
tarem do operador uma entrada, só reco- 
nhecem o que foi digitado caso a tecla 
CAPS LOCK esteja pressionada, ou vi- 
ce-versa. 

Para contornarmos este problema, e 
evitar uma linha de programa maior do 
que o necessário, podemos fazer uso de 
uma variável do sistema, a CPAST, que 
indica o estado da tecla CAPS LOCK. 


Caso CAPS LOCK esteja ativa, tere- 
mos em &HFCAB um valor maior que 
zero e menor que 255. Um valor igual a 
zero desativa a tecla. 


Exemplo: 
Poke &HFCAB,] (ativa) 
Poke &hFCAB,0 (desativa) 


MÚSICA ALEATÓRIA 


Como será a música no ano 3000? 


O programa abaixo poderá dar-lhe 
uma dar-lhe uma idéia. 


Verifique que há um certo padrãc. A 
geração dos números aleatórios que estão 
sob a música é feita pelo micro segundo 
uma rígida regra matemática. 

O programa Música Aleatória é parte 
integrante do livro 100 Dicas para MSX, 
da Editor Aleph. 





DICAS 


1% 


Slots e 


"expansões 


Você já deve ter se indagado a respeito 
do sistema de SLOTS de seu MSX: como 
funcionam os cartuchos de jogos, interfa- 
ces, ou qualquer periférico conectado ao 
seu MSX via cartuchos. Neste artigo, 
procurarei esclarecer as dúvidas a respei- 
to dos slots e páginas de memória que são 
um pequeno enigma na vida de usuários 
de micros padrão MSX. 

O microprocessador Z80 é um proces- 
sor de 8 bits capaz de endereçar 65536 de 
memória (64 Kbytes). De que forma, 
então, podemos ter 32 Kbytes de memó- 
ria ROM e mais 64 Kbytes de memória 
RAM para uso no micro? Como podemos 
ter, no exterior, micros do padrão MSX 
com expansões de memória de 128 Kby- 
tes? O responsável por isso é um circuito 
integrado chamado PPI, do inglês Peri- 
pheral Programable Interface, de identifi- 
cação 8255. A descrição mais detalhada 
deste “chip”, termo que usarei daqui em 
diante, ficará para uma outra ocasião, 
pois, no momento, só nos interessa o tra- 
balho que ele realiza no micro. 

Este chip é uma interface paralela con- 
tendo 4 portas de 8 bits cada. Uma destas 
portas, a qual chamaremos de porta A, é 
responsável pela lógica de seleção de slots 
no MSX. Cada grupo de dois bits desta 
porta pode conter um número entre 0 e 3, 
o qual vai indicar em que slot do MSX 
a página de memória correspondente vai 
estar ativa. Para entender melhor, observe 
a figura 1. 





Como exemplo, se quisermos uma 
configuração semelhante a da figura 2, 
teremos o seguinte valor na porta A da 
PPI: &b00001010. Dividindo este número 
em quatro blocos de 2 bits, teremos: 
&b0O, &b00, &bIO, &bIO. Em decimal, 
teremos 0, 0, 2 e 2, que, na ordem da pri- 
meira página até a quarta, significa que as 
duas primeiras estão ativas no slot O e as 
duas superiores no slot 2. Esta é uma das 
configurações de memória mais usada no 
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MSX e o seu micro pode, inclusive, ter 
esta configuração. 

Agora, vejamos, cada página de 
memória possui 16 Kbytes. Se temos 4 
slots, cada um com capacidade de conter 
memória em 4 páginas, podemos ter 
4x4= 16 páginas de 16 Kbytes, perfazen- 
do um total de 256 Kbytes de memória. 


Cada página também pode ter uma ex- 
pansão para mais 3 páginas iguais sobre- 
postas. Mas esta seleção não é mais tão 
simples como a primeira. Portanto, o seu 
micro poderia ter mais 3 blocos de memó- 
ria de 256 Kbytes sobrepostos ao primei- 
ro, O que daria um total de 1 Mbyte de 
memória. Ótimo, não é mesmo? 

Aí, surge o problema de endereçamen- 
to de 64 Kbytes. Apesar de toda esta 
memória, linearmente, só podemos ter 64 
Kbytes ativos. 

Provavelmente, você deve estar odian- 
do o Z80, mas não fique chateado. Você 
pode chavear páginas de memória mu- 
dando o valor da porta A da PPI, poden- 
do acessar todas as outras páginas quando 
quiser. Mas lembre-se: nunca mais de 64 
Kbytes simultaneamente. 

Quando o seu MSX é ligado, os slots 
são pesquisados à procura de memória 
RAM, Este teste é feito das mais altas po- 
sições de memória para baixo. A medida 
que o sistema encontra RAM, vai habili- 
tando esta memória para uso. Se houver 
mais de duas páginas contendo memória 
RAM entre os endereços &h8000 e 
&hFFFF, ele habilitará as páginas mais 
próximas ao slot 0. O seu MSX fica, 
então, com as páginas zero e um no slot 
zero contendo todas as suas rotinas inter- 
nas de operação e o interpretador BA- 
SIC, que estão em ROM, nestas páginas, 
e a memória RAM livre nas páginas 2 e 3 
em algum outro slot. A partir daí, ele exe- 
cuta uma inicialização em variáveis de sis- 
tema e outras funções prioritárias para, 


ANDRÉ L. F. DE FREITAS 


depois, entrar no interpretador BASIC. 

Para saber qual a configuração de 
memória do seu MSX, entre com o pe- 
queno programa em BASIC da listagem e 
rode-o. Ele mostrará quais as páginas ati- 
vas do seu micro, pois a configuração po- 
de variar conforme o fabricante. O pro- 
grama faz uma leitura na porta &hA8 do 
micro, a qual endereça a porta A da PPI. 
O valor correspondente lido é, então, di- 
vidido em grupos de 2 bits e passado para 
decimal, informando em que slot estão as 
páginas de memória do micro. 

Agora que já sabemos como funciona 
a paginação de memória dos microcmpu- 
tadores MSX, podemos conhecer um 
pouco mais do sistema de expansões. 

Quem possui uma interface de disco, 
cartão de 80 colunas, ou mesmo um car- 
tucho de jogos, já verificou que o mesmo 
é conectado a uma das entradas de cartu- 
cho do micro. Cada entrada destas 
contém um barramento e uma lógica de 
seleção correspondente a um dos slots do 
MSX. Quando um destes slots contém um 
periférico ou um cartucho de jogo, a ini- 
cialização do sistema procura um certo 
conjunto de bytes na memória correspon- 
dente a estas entradas. Estes bytes contêm 
informações úteis do sistema para que es- 
te reconheça o tipo de periférico conecta- 
do. Estas informações podem indicar se 
existe ROM no slot, o seu endereço de 
execução, se existe expansão de coman- 
dos a serem utilizados pela instrução 
CALL do basic, endereço de rotinas para 
manipulação de dispositivos, etc. 

Como conclusão desta parte do artigo, 
vemos que o sistema de slots do MSX é 
algo de grande valor, pois, através dele, 
podemos manipular toda a memória e 
acessar um grande número de periféricos 
já existentes para a linha. Futuramente, 
em uma outra oportunidade, iremos ex- 
plorar mais o acesso a periféricos. Trata- 
remos, agora, somente da memória de 
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nosso microcomputador. 

A seguir, veremos um programa que 
permitirá a vocês, usuários, explorar toda 
a memória “adormecida” do MSX. 

Vamos supor que temos um programa 
em linguagem de máquina que não neces- 
sita do interpretador BASIC para ser 
executado. É o caso dos jogos em lingua- 
gem de máquina que você, provavelmen- 
te, possui. Vamos supor que o programa 
tem mais de 32 Kbytes de comprimento. 
Ora, se o micro só tem ativos 32 Kbytes 
de RAM, como poderemos carregar e 
executar este programa? Simples. O pro- 
grama é, geralmente, dividido em blocos 
menores com 16 Kbytes cada. Ao se er o 
primeiro bioco com à instrução BLOAD, 
este bloco é carregado em uma página 
ativa do sistema e seu ponto de entrada é 
uma pequena rotina que verifica se há 
uma página de RAM correspondente à 
página do interpretador BASIC (página 
1) em outro slot diferente do 0. Ao en- 
contrá-lo, muda o valor da porta A da 
PPI para se configurar possuindo a página 
1 em RAM. A seguir, o programa é rea- 
locado para esta página e a porta A da 
PPI recebe, novamente, a configuração 
original do sistema, retornando o controle 
do micro ao interpretador BASIC. Pron- 
to. Temos 16 Kbytes de RAM contendo 
um programa em uma região da memória 


que não estava sendo utilizada; uma da- 
quelas páginas que, a princípio, parecia 
não ter utilidade. Podemos fazer isto com 
vários blocos de 16 Kbytes de programa, 
desde que tenhamos páginas de memória 
suficientes para contê-las. 

Outra limitação é a de nunca desati- 
varmos a página O da ROM, pois lá estão 
contidas as rotinas básicas de operação do 
MSX. Se ativarmos a página O em outro 
slot, o programa lá contido deve realizar 
algumas destas funções, sob pena de per- 
dermos o controle do micro. O mesmo 
é válido para a página 3, pois lá se encon- 
tram variáveis do sistema muito impor- 
tantes para o perfeito funcionamento do 
micro. Ao final do carregamento dos blo- 
cos, o último deve conter uma rotina que 
manipule as páginas ocultas nos slots “va- 
zios” do micro, e teremos, então, um belo 
jogo ou utilitário com mais de 32 Kbytes 
de comprimento. Para se rodar o progra- 
ma, basta configurar a PPI para ativar 
a página correspondente ao bloco que 
queremos executar e pular para um ende- 
reço naquele bloco. Ao final de execução, 
podemos alterar a configuração nova- 
mente e executar outro bloco. Pode ser 
um pouco estranho ficar pulando de um 
lugar para outro, mas o resultado, quase 
sempre, é um ótimo jogo ou utilitário, o 
qual já fez com que muitos de nós perdês- 





semos algumas horas utilizando-o com 
grande prazer. 

O programa da listagem 2 é uma pe- 
quena rotina em linguagem de máquina 
que procura uma página de RAM corres- 
pondente aos endereços &h4000 até 
&h7fff nos slots livres do seu MSX e rea- 
loca para lá um programa em assembler 
qualquer. Como exemplo de programa a 
ser realocado, temos o fornecido na lista- 
gem 3. Este programa somente imprime 
uma mensagem no vídeo sem a necessida- 
de do interpretador BASIC. Na listagem 
4 temos uma outra pequena rotina que só 
chamará o programa de impressão na pá- 
gina em que se encontrar e retornará ao 
interpretador BASIC. 

Observando a listagem 2, veremos que 
a rotina começa tentando escrever um va- 
lor na memória e, depois, tenta ler de vol- 
ta o mesmo valor. Este teste tem de ser 
feito duas vezes com valores diferentes, 
pois este endereço poderia ser em ROM e 
conter o valor testado, o que não nos le- 
varia a nenhuma conclusão. Se for encon- 
trada RAM, o programa passa a realocar 
o programa da listagem 3. Portanto, antes 
de rodar o programa da listagem 2, certi- 
fique-se de já ter digitado, também, o da 
listagem 3. Se o slot testado não puder ser 
usado, o programa continuará a procurar 
até encontrar uma área livre. 


2 REM SLOTS E EXPANSÕES 
30 REM AUTOR: ANDRE LUIZ FREITAS 
40 CLS 

50 A = INPC RHAB ) 

60 A5=BINS CA) 

70 FOR I=1 TO 6 STEP 2 

80 88 = NIDS (AS, 1,2) 

90 J=3-INT (1/2) 

100 PRINT “PAGINAS”; J; * SLOT: *; VAL 
Crar+ BS) 

NO NEXT 1 





NO REM SLOTS E EXPANSÕES OS: 

120 REM AUTOR: ANDRE FREITOS 

130 REM 

140 REM ESTE PROGRAMA BASIC COLOCA NA 
150 REM MEMORIA AS ROTINAS EM LINGUAGEM 
160 REM DE MAQUINA CONTIDAS NAS LINHAS 
170 REM DATA. 

180 REM ESTAS ROTINAS CORRESPONDEM 

190 REM AS LISTAGENS 2,3,4 DESTE ARTIGO 
200 REM 

210 REM 


220 REM PRIMEIRA ROTINA - LISTAGEM 2 
230 DATA DB,R8,32,F0,E0,21,00,40 
240 DATA 06,09,DB, R8,C6,04,32,F1 

250 DATA E0,03,R8,3E 

240 DATA 77,5E,7A,B9,FE, 
270 DATA 10,E8,18,08,21 
280 DATA 00,40,01,30 
290 DATA FO,EO,03,88,69 
300 REM SEGUNDA ROTINA - LISTAGEM 3 
310 DATA 21,0F,40 
320 DATA C0,82,00, 
330 DATA 53,4C,4F 
340 DATA 45,58,50, 
350 DATA 53,07,00 
360 REM TERCEIRA ROTINA - LISTAGEM 4 
370 DATA 3A,F1,E0,03,R8,CD,00,40 

380 DATA 3R,F0,E0,03,88,C9 

390 REX 

400 FOR I=HE000 TO RHE034 

40 RERO AS:A=VAL("AH" SAS) :POKE 1,A 
420 HEXT 1 

430 FOR 1=8HE100 TO RHEIZ2 

440 RERD AS:R=VALCCAH"4AS):POKE 1,A 
450 NEXT 1 

460 FOR I=8HE200 TO 8HE20D 

470 RERD AS:R=VALCAH"+AS)SPOKE 1,A 
480 NEXT 1 

490 CLS:PRINT"ROTINAS CARREGADAS NA HEM 
RIA" 
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Você deverá utilizar um monitor as- 
sembler para entrar os programas na 
memória, mas, caso não possua um, não 
se desespere. Na listagem 5 eu forneço 
um programa em BASIC que colocará na 
memória, automaticamente, os programas 
2, 3 e 4 que estão em instruções DATA 
nas linhas iniciais do programa. 

Após os três programas estarem na 
memória, estamos prontos para rodá-los. 
Digite, no BASIC, as linhas abaixo: 


DEF USR = &HE000 
A = USR(0) 


Pronto. 

Agora, o programa de impressão já 
está em uma página de memória livre do 
seu MSX. Se você já digitou a listagem 4, 
estamos prontos para testar a paginação 
de memória do MSX. Repare que o pro- 
grama da listagem 4 lê um byte do ende- 
reço &hE100 que contém a configuração 
da porta A da PPI para a página 1 ser em 
memória RAM. Esta configuração foi es- 
crita ali pelo programa 2 para sabermos, 
exatamente, onde é esta RAM e não cau- 
sarmos uma perda de controle do sistema. 
Digite, agora, no Basic, as seguintes li- 
nhas abaixo: 


DEF USR = &HE200 
A = USRI (0) 


Aí está a sua mensagem, sem que 0 in- 
terpretador BASIC estivesse ativo duran- 
te sua execução. O programa da listagem 
4 alterou a configuração das páginas de 
memória, desativando o interpretador 
BASIC, chamou a rotina de impressão a 
qual usa uma chamada a uma rotina do 
BIOS para imprimir, escrevendo direto 
através do processador de vídeo e restau- 
rou o sistema para que tivéssemos, nova- 
mente, o acesso ao BASIC. 


Gostaram? 

Espero que vocês não fiquem só por 
aí. As listagens são apenas pequenos 
exemplos do que se pode fazer com a pa- 
ginação de memória do MSX. Deixo, 
aqui, a sugestão para que vocês alterem à 
vontade estes programas e se utilizem 
destas rotinas quando precisarem de 
“mais memória”. Criem à vontade, pois, 
como vocês podem ver, o MSX é um mi- 
cro novo no mundo e mais novo ainda 
aqui no Brasil, havendo, ainda, muita coi- 
sa a ser explorada. 

Estarei à disposição de vocês para su- 
gestões e opiniões, bastando entrar em 
contato com a diretoria técnica da revista. 

Espero que todos tenham gostado des- 
te primeiro artigo e, como já disse ante- 
riormente, não ficaremos por aqui. Ainda 
há muito a se explorar. Aguardem. 
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à SLOTS E EXPANSÕES 


à AUTOR: ANDRE FREITAS 
à LISTAGEM 2 


DR AB 
32 FO EO 
21 00 44 
do 03 
DB Ag 
Co 4 


32 Fí EO 
D3 AB 
3E HA 


7 
56 
a 


7 


5 


7a 
8 
FE FF 


28 04 


19 E8 
18 08 


21 06 EL 
1100 40 
di 30 00 
ED BO 


JA FO EO 


D3 Ag 
c 


Loop: 


Achou: 


Fin: 


ORG VEVÓOH 


IN A,( 088) 
LD ( 0EOFOND,A ; 
LD Hi, 4000H 
LD 8,3 

IN A,( dah) 
ADD A,4 


LD ( 0EBFIH),A 
OUT ( 08Bh),A 
LD A,0AAH 


LD ChLd,A 
LD DAL) 
CPL 


LO CHL),A 
LO E,( HL) 
LD A,D 
ADD A,E 
CP QrFh 


sR Z,fichou 


DJNZ Loop 
JR Fin 


LD HL,0Ei00H 
LD DE, 4000H 

LD BC,0030H 

LOIR 


LD A,( 0E9FOH) 


OUT ( 0ABH),A 
RET 


i ho final deste programa teremos: 


Lê configuração da porta À da PPI 
Salva no endereço &HEOFO 

Endereço na página 1 

No. de SLOTS a testar 

Lê PPI 

Increnenta bits correspondentes à 
página í na porta À da PRI 

Salva no endereço &HEQFL 

Altera PPI 

Valor a ser escrito na memória 
equivale a &B10101010 

Escreve e 

lê da mexória 

Coupiementa este valor. Se a primeira 
leitura for correta, o complemento 
será 8801010401 

Escreve e 

lê da memória 


Soma os dois valores lidos da memória 
Se há RAM no SLOT, o valor da sona 

e êhFF e q teste está correto, 

então salta para a rotina de 
transferência de blocos, senão 
Decrewenta 8 e volta ao loop de teste 
Não achando RAM ao fia do loop, sai 


Início do bloco a transferir 
Endereço de destino 

Tananho do bloco 

Transfere 


Carrega À com a configuração 
original da PPI 

Restaura valor na porta À da PPI 
R 

ão 


i 
à No Endereço &ME0FO - À configuração original da porta A da PPI 
i No Endereço &HEOF1 - À configuração para a qual a página í 


i 


estã eu RAM 


CPU 





SLOTS E EXPANSÕES 
ANDRÉ FREITAS 


AGEM 2 








; SLOTS E EXPANSÕES 
; AUTOR: ANDRE FREITAS 


DRG CEL00H ; LISTAGEM 4 


EQU Quou  ; Rotina de impressão do BIOS 





2i or 4 LD HL,4085 ; Carrega 5. cos ensereço da PoE 


mensagem ( end. após realocar ) a 
low: LDAtH) ; Carrega À com valor ce caracter Bs ERED 

“o [a 

dé RR ZFin 

ae 00 CALL CHPUT 


LD À, ( OEOFIK) ; Carrega acumulador com a 

; configuração de PP] saiva 

; Pelo programa da iistagen 2 
; fitera configuração Ga PPI 
; Chama programa de impressão 









INC RE 5 
1885 agp j ain ERR 
o Fa LDA, ( 070704); Carrega acumulador com a 
ção normal da PPI 
E Mensgr DEF3 00% a 
53 4C 4F 54 DEEM “6. 03 ne era “conf uração da PP] 
52 20 45 20 c9 SEREIA, SALE 
45 58 50 41 
4 e 4 
53 
” DES 
Ww DEF3 é 








- 


SLOTS E PÁGINAS DA MEMÓRIA 


VALORES DOS SLOTS CORRESPONDENTES 
ÀS PÁGINAS DE MEMÓRIA 














PORTA “A” 
SLOT O SLOT1 SLOT 2 SLOT3 DA PPI 
PÁGINA 3 0 | [ [ 1 2 Bits correspondentes 
0 1 0 1 à página 3 
PÁGINA 2 0 0 1 1 2 Bits correspondentes 
o 1 0 à página 2 
PÁGINA 1 ES So 1 2 Bits correspondentes 
1 1 à página 1 
PÁGINA 0 0 o 1 1 2 Bits correspondentes 
[o 1 0 à página O 
FIGURA 1 








EXEMPLO DE CONFIGURAÇÃO DE MEMÓRIA 








PORTA “A” 
SLOTO SLOT 1 SLOT2 SLOT 3 DA PPI 
PÁGINA 3 
Pág. 3 no Slot 2 
PÁGINA 2 
Pág. 2 no Slot 2 
Á Z 
PÁGINA 1 A o Página 1 no Slot O 
E Z 0 
PÁGINA 0 A o Pág. O no Slot O 








FIGURA 2 





E 
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MATEMÁGICA 


Autômato celular 


J. L. FONSECA 


Esta será uma coluna onde serão apre- 
sentados programas ou fragmentos de 
programas ligados à área da matemática 
recreativa, uma área por demais fascinan- 
te, apesar de pouco difundida entre nós. 

Os nossos computadores podem não 
ser tão rápidos nem ter uma resolução tão 
alta quanto os usados em pesquisas nas 
universidades, mas são o suficiente para 
explorar alguns mundos e problemas bem 
interessantes. Ao longo dos meses, vere- 
mos artigos sobre gráficos de funções, 
criptografia, teoria dos números, lógica, 
autômatos, etc. 

Hoje, apresentaremos um pequeno mas 
interessante programa sobre um organis- 
mo matemático conhecido como autômato 
celular. Este organismo vive num univer- 
so simulado no computador, tendo regras 
evolutivas próprias, definidas pelo pro- 
grama. Esta classe de programas abrange 
um vasto campo de possibilidades, desde 
o programa aqui apresentado, com um 


universo unidimensional com células em 
156 possíveis estados evolutivos, até uni- 
versos multidimensionais, onde vivem cé- 
lulas com centenas de estados. 

Um dos mais famosos deste grupo de 
programas é o LIFE, com um universo 
bidimensional e células de dois estados, o 
qual será apresentado em outra ocasião. 

O programa da listagem 1 cria um uni- 
verso unidimensional, representado pelo 
vetor A%(), o qual simula um círculo, ou 
seja, a sua última célula é adjacente à pri- 
meira. Cada uma das variáveis do vetor 
representa uma célula do universo e o seu 
valor representa o estado evolutivo da cé- 
lula. 

O programa representa as gerações 
sucessivas em linhas consecutivas da tela 
no modo 3, com as cores dos pontos re- 
presentando os estados evolutivos e, deste 
modo, podemos ver 48 gerações de 64 cé- 
lulas simultaneamente. 


Para usar o programa, respondas às 


perguntas como indicado. O padrão inicial 
deve ser fornecido como pedido, sendo 
que as letras de A até P correspondem aos 
números de O a 15. Em seguida, responda, 
com um conjunto de Os e 1s, às perguntas 
sobre as influências. Esta última pergunta 
é que governa como as células vizinhas 
influenciam a célual sendo testada no 
momento (0 — sem influência, 1 influen- 
cia). Neste programa, são consideradas 
células vizinhas às duas células imediata- 
mente adjacentes à célula sob teste e às 
duas imediatamente seguintes a estas úl- 
timas. 

O programa é simples e fácil de ser 
entendido e modificado para condições 
diferentes das dadas por mim. Sinta-se, 
pois, à vontade para modificá-lo e diver- 
tir-se com os belos padrões gerados por 
ele. 

Escreva-nos dando as suas sugestões e 
críticas, pois as mesmas serão bem vindas. 
E até à próxima edição, onde veremos 
novas curiosidades. 





140 DIM BXC3): * INFLUENCIAS 





180 IF XZ = 0 THEN GOTO 210 

190 PRINT INPUT “Deseja mudar o padrao ";8$ 
200 IF OR BS = “nº THEN GOTO 250 

Bo xz=1 

220 CLS: PRINT SPC(7);"Entre con o padr 

ao inicial": PRINT" (ate 44 caracte 

res entre Re P )º: PRINT 

236 LINE INPUT AS 








240 1F AS =" THEN GOTO 220 
250 FOR IX = 0 TO 63 

260 AXO, IX) = O 

270 NEXT IX 


280 IF LEN (A$))64 THEN AS=MIDSCAS, 1,63 ) 
290 FOR IX = 1 TO LENCAS) - 1 


300 AZ(O, IX)=ASC(RIGHTSCAS, 1Z+1)) - 65 
310 NEXT IX 

320 PRINT: PRINT: PRINT “Escolha a infl 
uencia das celulas vizi- nhas (0/1)": 
PRINT 

330 INPUT “1 - 2 “sBi(O) 

340 INPUT “IL = 1 “sBZ(1) 


350 INPUT “IL + 1 "sBZ(2) 

360 INPUT “L + 2 “;8(3) 

380 “ VERIFICA E CORRIGE AS INFLUENCIAS 
400 FOR 1250 TO 3 

ANO TF BLCID O O THEM BLCIR=] 

420 NEXT IZ 

430 SCREEN 3 

450 “ INICIA A EVOLUCAO DAS CELULAS 

470 FOR JZ = 0 TO 47 

480 EX = JZ HOD 2: * INDICE DA GERACAO ANTERIOR 
490 FL = (t+) MOD 23 * INDICE DA PROXINA GERACAO 
500 FOR IZ = 0 TO 63 

SIO AZ = (IX+) MOD 63 

520 BZ = (1242) MOD 63 

530 CX=(12-1)NODG3: IFCXCOTHENCI=63+ C% 
540 DZ=(12-2)N0D63: IFOZCOTHENDZ=63+0% 
550 AXFZ IX = (AZCEL,AL) 4 BI(D) + AZ 
(EZ,B2) 4 BU(3) + AMEZ,CX) 8 BUT) + À 
VEZ, OZ) 4 BXCO)) NOD 15 

560 PSET (IZH4, JTH4) ALL, IX) 

570 MEXT IZ 

580 NEXT JZ 

590 BEEP 

S00 BS=INKEYS: IF BS = “" THEN GOTO 600 
80 GOTO 130 


CPU 


O sistema de 


gravação 


cassete no 


Todos os usuários de micros padrão 
MSX já estão familiarizados com o seu 
sistema de gravação. Estes micros se utili- 
zam de um processo de gravação chama- 
do FSK, do inglês Frequency Shift 
Keying, ou seja, chaveamento de 
frequência. Aquele som que ouvimos 
quando acionamos o gravador com uma 
fita cassete contendo um programa e uma 
segiiência de pulsos em freqiências dife- 
rentes correspondentes a bits zeros e uns. 
Estas frequências são entre 1.200 hertz e 
4.800 hertz, dependendo da velocidade de 
gravação. Podem ser utilizadas outras 
fregiiências e, de certa forma, isto é fácil 
de se conseguir, alterando algumas variá- 
veis do sistema MSX. Mas não é aconse- 
Ihável, pois os circuitos de áudio do MSX 
possuem filtros que eliminam frequências 
superiores, o que reduz a confiabilidade 
da gravação. 

O que a maioria dos usuários não sabe 
é o que está por trás Ge uma simples ins- 
trução SAVE e como isto é processado 
pelo micro a nível de máquina. Pretendo, 
neste artigo, dar uma pequena visão do 
que se esconde por trás de uma instrução 
BASIC de operação cassete. 

Ao se salvar ou carregar um programa 
em cassete, o seu micro se utiliza de vá- 
rias rotinas contidas nos primeiros 16 
Kbytes de ROM, que vamos chamar de 
BIOS. Aki se encontram todas as rotinas 
básicas de operação do MSX, desde o 
controle do teclado, vídeo, som, até mes- 
mo a operação em cassete. 





ANDRÉ L, F. DE FREITAS 


O REA LISTAGEM à 
NO REM O SISTEMA DE GRAVAÇÃO CASSETE 
NO HSX 

VI5 REM REVISTA CPU - MAIO 1988 

120 REM ANDRE LUIZ FRANCO DE FREITAS 
130 DATA CD,EA,00,21,00,E2,7E,FE 

140 DATA 00,28,08,E5,C0,€0,00 El 

150 DATA 23,18,F3,C0,F0,00,09 

140 REM CARREGA O PROGRANA ASSEMBLER NA 
MEMORIA 

170 FOR 1=2HE000 TO &HEON6 

180 RERO AS: R=VAL("AM"+AS) 

190 POKE 1,8 

200 NEXT 1 

210 REM LE MENSAGEM E CARREGA NA NEMORI 


A 
220 LINE INPUT “MENSAGEM: 
230 FOR 1=] TO LEN(HS) 
240 BS=HIDS(KS, 1,1) 

250 POKE AHEIFF+,ASC(BS) 
260 NEXT 1 

270 POKE AHEJFF+1,0 = REM TERMINA MENSA 
BEM COM BYTE ZERO 

280 REM CHAME ROTINA EM ASSEMBLER 

290 DEFUSR=AHE000 = R=USR(O) 

300 PRINT:PRINT"MENSAGEM GRAVADA 111" 
310 ENO 
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As rotinas de cassete se dividem em 
dois tipos: gravação e leitura. Observe a 
tabela 1. Nela são relacionadas estas roti- 
nas e dados os endereços de entrada cor- 
respondentes. Não vou descrever estas 
rotinas, pois são, de certa forma, comple- 
xas, envolvendo conhecimentos de lin- 
guagem de máquina e do hardware do sis- 
tema. Não pretendo, neste artigo, exigir 
de vocês, leitores, grande conhecimento 
de assembler, mas uma pequena noção é 
muito útil. Observe que ainda existe mais 
uma rotina que trata somente do estado 
de operação do gravador cassete. 

Entre com os seguintes POKEs, pelo 
BASIC, para testar esta rotina: 


POKE &HE000,&H3E 
POKE &HE00L,1 
POKE &HE002,&HCD 
POKE &HE003,&HF3 
POKE &HE004.0 
POKE &HE005,&HC9 


Agora digite: 


DEF USR = &HE000 
A = USR (0) 


Reparou no “click” do gravador sendo 
acionado? Experimente dar POKE 
'HEOOLO e, a seguir, novamente 
A=USR(0). O gravador deve desligar 
agora. Estes POKEs, acima, somente car- 
regam, a partir do endereço &hE000, um 
pequeno programa em linguagem de má- 





0 Rrn LISTAGEM 








quina que coloca no registrador A do Z80 
um valor e chamam a rotina de operação 
do motor do gravador. Isto equivale às 
instruções BASIC: MOTOR ON e MO- 
TOR OFF. 

Não é muito difícil controlar o sistema 
de gravação em assembler, mas deve ser 
tomado muito cuidado para não se gravar 
ou ler informações não coerentes. Uma 
simples questão de tempo, ou seja, demo- 
ra na leitura de um byte na fita, pode tirar 
todo o sentido do que o computador está 
lendo. As rotinas do BASIC estão escri- 
tas de forma a não permitir que coisas do 
tipo aconteçam, mas você também pode 
fazer o mesmo sem problemas. 

Como exemplo de utilização destas ro- 
tinas, dois pequenos programas são for- 
necidos nas listagens 1 e 2. O primeiro 
deles gravará uma mensagem na fita cas- 
sete e o segundo lerá esta mensagem de 
volta. Os programas são em BASIC, con- 
tendo rotinas em linguagem de máquina 
em linhas DATA. As rotinas em lingua- 
gem de máquina estão descritas em as- 
sembler, respectivamente, nas listagens 3 
e 4, para aqueles que querem se aprofun- 
dar mais no assunto. Agora, digite o pro- 
grama da listagem 1, prepare o gravador 
para salvar a mensagem e rode o progra- 
ma. Este programa pedirá a você para en- 
trar uma mensagem, carregará esta men- 
sagem na memória e, ao chamar a rotina 
em linguagem de máquina, passará a men- 
sagem para fita cassete. 

Digite NEW e entre com o programa 
da listagem 2. Este programa fará o in- 
verso do anterior, lendo a mensagem da 
fita através de uma rotina em assembler e 
a carregará na memória. O restante do 





programa BASIC se encarregará de im- 
primir a mensagem no vídeo. Quando es- 
tiver digitado, volte um pouco a fita cas- 
sete para o início do bloco que você sal- 
vou anteriormente e prepare-o para car- 
regar 0 bloco. Rode o programa e aguar- 
de a mensagem no vídeo. Satisfeito com o 
resultado? Esta foi a mensagem que você 
digitou no primeiro programa e, apesar de 
ter dado um NEW, aí está ela de volta, via 
cassete. , 

Como conclusão, vemos que todos os 
comandos de gravação do BASIC utili- 
zam estas rotinas de gravação do BIOS, 
somente lembrando que estas são bem 
simples, fazendo, somente, as operações 
mais simples, enquanto que as rotinas do 
interpretador BASIC já contêm testes pa- 
ra você poder dar um BREAK na gra- 
vação, a seleção dos dados que vão ser 
salvos, a gravação daquele pequeno bloco, 
o “header” de identificação dos progra- 
mas e outras tarefas mais complexas. 

Nada disto lhe impede de usá-las, co- 
mo foi apresentado neste artigo, pois to- 
das as coisas simples podem, ainda, ser 
bem trabalhadas e muita coisa pode ser 
criada em cima destas rotinas. De onde 
vocês acham que vieram os copiadores de 
programas que muitos usam? E aqueles 
joguinhos que só se carregam com um 
carregador especial contido neles mes- 
mos? 

Para aqueles que vão se aventurar, 
leiam as listagens 3 e 4, tentando entender 
o que faz cada uma das rotinas e boa sorte 
nas suas experiências. Em breve, voltare- 
mos com novas explorações pelo mundo 
do BIOS, descobrindo o que está por trás 
de outras instruções do BASIC. 





nHoRren d EMA DE GRAVACAO CASSETE 
NO H5X 
120 REM  FNDRE LUIZ FRANCO DE FREITAS 





130 DATH C0,E1,00,21,00,E2,E5,00 
140 DATA E4,00,€1,77,23,FE, 00,20 
150 DATA F5,C0,E7,00,09 

160 REM CARREGA O PR 
MENOR LA 

170 FOR I=BHEIOO TO 8HETT4 


180 READ AS: A=VAL(CAHC+AS) 





190 POKE 1,h 
200 NEXT 1 
210 CLS 2 KEY DFF 


220 REM CHAMA ROTINA EM ASSEMBLER 


230 DEFUSR=AHEIOO = A=UISR(O) 


240 PRINT "MENSAGEM LIDA: ":PRINTEPRINT 


250 F=8HE200 






260 À (E) 

270 IF R=0 THEN GOTO 310% 
280 PRINT CHRS(A); 

290 E=EM 

300 GOTO 260 

310 END 


OGRAM If ASSENBLER NA 


ASSEL Assistência Eletrônica Ltda 


Assistência Técnica Autorizada 
DISMAC - TEXAS 


REVENDA AUTORIZADA DE 
PEÇAS E ACESSÓRIOS SHARP 


Assistência para todas as marcas 
de calculadoras eletrônicas, video 
games, máquinas de escrever 
eletrônicas, micros da linha 


à Lapa, 1 





274-8845 


Fita Impressora 
Formulário Continuo 1, 2 ou 3 
Arquivo para Diskettes 
Pastas para Listagens 
Etiquetas Adesivas 

Diskettes 5.1/4" ou 8 
Reebobinagem em Nylon 

e Polietileno 


















* Pronta Entrega 
* Qualquer Quantidade 
* Garantia de Qualidade 










Suprimento 


MATERIAIS PARA COMPUTADORES 


Rua Visc. de Pirajá, 550/202 
274-8845 — Ipanema — Rio 








Menus e 
tabelas na 
screen 2 


ANDRÉ L. F DE FREITAS 


A maioria dos programas existentes, 
principalmente os aplicativos, utilizam al- 
gum tipo de menú para que o usuário pos- 
sa efetuar uma escolha entre as opções 
disponíveis, tornando, assim, o programa 
mais flexível. 

Existem várias formas de se apresentar 
um menú, tabela ou gráfico, sendo o mais 
bem elaborado e de melhor resultado vi- 
sual aquele no qual o menú ou tabela, ou o 
que desejamos apresentar, se encontra no 
interior de uma janela, a qual possui cor 
diferente do restante da tela. 

Inúmeras são as possibilidades para as 
janelas e as instruções utilizadas para seu 
processamento, mesmo em Basic, são 
poucas e de fácil compreensão. 


A principal instrução que utilizaremos 
é LINE com sua opção BF. Sua função é 
traçar uma linha, no modo gráfico, com 
base nas coordenadas fornecidas pelo 
usuário. Se a opção BF for fornecida, 
será traçado um retângulo, sendo que as 
coordenadas fornecidas correspondem 
aos extremos da diagonal do retângulo a 
ser desenhado. O retângulo também será 
preenchido com a cor especificada. 

LINE só pode ser utilizado na tela de 
alta resolução, portanto, outra instrução, 
a SCREEN 2, será utilizada para colocar 
o micro no modo de alta resolução. 

Digite o programa abaixo, rodando-o 
a seguir. 


10 SCREEN 2:CLS 
20 LINE (20,20)(100,100), 15,BF 
S30 GOTO 30 


Na tela foi desenhada uma janela que 
possui cor diferente da cor de fundo da 
tela. 

A linha 30 se faz necessária para evitar 
o retorno do micro ao modo de texto. 

Temos agora, ao que parece, um pro- 
blema: se o micro está em modo gráfico, 
como colocaremos texto na tela? 

Todas as telas do MSX podem ser tra- 
balhadas como arquivos para escrita. Por- 
tanto, podemos utilizar a instrução OPEN 
do Basic para ter acesso à escrita em uma 
página gráfica. Esta instrução associa um 
número, entre O e 15, a um arquivo, no 
nosso caso a página gráfica (GRP)), sendo 
este número associado à instrução 
PRINT, a qual se encarregará de escrever 
na tela gráfica. 

Para posicionarmos O texto, usamos a 
instrução PSET, já que LOCATE não 
servirá por atuar somente nas telas de 
texto. PSET irá imprimir um ponto na te- 
la e, após esta instrução, a posição de im- 
pressão corrente no vídeo é a logo a se- 
guir às coordenadas de PSET. Se plotar- 
mos um ponto com a cor de fundo da ja- 
nela, este não será visível e ficaremos com 
as coordenadas de impressão de texto po- 
sicionadas no local que desejamos. 

Após esta instrução, podemos usar o 
PRINT % para escrever no nosso “ar- 
quivo”, ou seja, o vídeo gráfico. 

Inlclua as linhas abaixo no programa 
anterior e rode-o. 

5 COLOR 1,44 

15 OPEN “GRP:” FOR OUTPUT AS 

$1 

25 PSET (30,30),15 

26 PRINT & I,“TEXTO” 





Observe a presença de texto dentro da 
janela. Note que com poucas linhas de 
programa podemos criar uma janela e es- 
crever texto nela, mesmo em alta reso- 
lução. 

O programa fornecido na listagem 1 é 
um exemplo de menú, onde são apresen- 
tadas várias opções, cabendo ao usuário a 
escolha de uma delas. 

Fazendo uma leitura detalhada do pro- 
grama, vamos observar as coordenadas 
das instruções LINE e PSET. Na lista- 
gem, estas coordenadas estão sob a forma 
de um número multiplicado por 8. Foram 
apresentadas deste modo para facilitar a 
idéia da tela com gráficos e texto simultã- 
neamente. A tela gráfica possui resolução 
de 256x2192 pontos, enquanto a de texto, 
no modo SCREEN 1, possui resolução de 
32x24 caracteres. Note que 32x8=256 e 
24x8=192. Pense na tela gráfica como 
uma tela de texto de 32x24 caracteres. E, 
sempre que quiser converter as coorden: 
das dos caracteres, multiplique-as por oi- 
to, para utilizá-las nas instruções gráficas. 

Observe também a subrotina que cria 
as janelas. A rotina foi melhorada com o 
acréscimo de instruções para criar uma 
“moldura” e um pegueno efeito de som- 
bra nas janelas. 

Leia atentamente o programa e obser- 
ve o que pode ser feito com janelas, apro- 
veitando as idéias aqui apressentadas em 
seus próprios programas. 

Nos próximos números iremos publi- 
car um programa em módulos que ofere- 
cerá vários recursos como calculadora, 
agenda telefônica, traçador de gráficos, 
etc. 
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170 SCREEN 2: COLOR 15,4,4: CLS 
180 Xl=82/1=7242=24:/2=16:CH=1:0J=10260 


[=1:48="MENU" E 





SUB 900 
GOSUB 900 
- BRAFICO":BOSUB900 
3 - JANELAS" :60SU8900 
J=4:48="Exemplos de 
osuB 900 

-2:CC=15:M8=" janelas em progra 
BOSUB 900 

20:CC=15:H8="Por Andre Freit 
as - 1988": GOSUB 900: CC=] 

260 AS=INKEYS:IF A$="" THEN 260 

270 R=VALCAS):IF ACI OR A)3 THEN BECP:G 
TO 260 

280 0N A GOSUE 300,460,650 

290 GOTO 170 

310 REM OPCAO 1 - TABELA 





















330 CLS 

340 X1=2:Y1=6:X2=30272=18:CJ=3:0F=] 2005 
Us 770 

350 X=l "TARELH »COStIR 900 





360 X=4 

=": GOSUB 900 

370 X=4:Y=10:48="! Hes ! Vendas | Valor 
1"5 BOSUB 900 

380 X=42y=]]2M8="-————————=——===—===——— 

==": GOSUB 900 

390 X=4iY=12:N8=" Jan 10 500,0 

0": GOSUB 900 

AOO X=4:Y=13:M8=" Fev Bo 400,0 

0": GOSUB 900 

410 X=4iy=14:M8=" Mar 150 750,6 

0": GNSUB 900 

420 X=4:Y=15:H8=" Abr 190 950,0 











430 Xe4:Y=16: 
=" ROSUB 900 

440 FOR 1=1 TO 4000: NEXT 1 

450 RETURN 

470 REM OPCAO 2 - GRAFICO 

490 CLS 

500 X1=2:71=2:X2=30:Y2=22:CJ=]4:CH=1: 6 
OSUB 770 

510 X=122Y=4:H8="GRAFICO": GOSUB 900 
ndas": GOSUB 900 
GOSUR 900 
BOSUB 900 
GOSUB 900 
noSuS 900 


Q ===>"... 





=="360SUB 900 


580 X=4:7=20:H8=" Jan Fev Mar Ah 








Fº: GOSUB 900 

590 Xl=92Y1=14:X2=12:/2=18:09=7:605U8 7 

7% 

600 XI=14:1=16:X2=17:Y2=18:C])=5:60SUB 
mM 

610 Xl=19:Yi=12:K2=222Y2=18:C1=2:605UB 
7m 

620 X1=24:Y1=10:X2=27:92=18:0J=10:60SUB 
mM 

630 FOR 1=1 TO 4000: NEXT 1 

640 RETURN 

660 REM  OPCRO 3 - JANELAS 

680 CLS 


690 X=13:Y=2200=15:M8=" JANELAS": GOSUB 





730 Xi=112/1=18:42=282Y2=22:C9=7:60SUB 
mM 

740 XI=13:Y1=8:X2=17:42=20:CJ=14:60SUB 
7 

750 FOR 1=1 TO 4000: NEXT 1 

760 RETURN 

770 REM SUBROTINA QUE CRIA JANELAS 
790 REM PARAMETROS: 

800 REM XI,YI = COORD. INICIAIS 
BIO REM X2,Y2 - CODRO, FINAIS 
B20 REM CJ -COR DA JANELA 

830 REM CH COR DA MOLDURA 
850 LINE (XIXB, YIXB)-(X248, Y248),CU,BF 
860 LINE (XI$8, V128)-(X288, V248),Ch,8 
870 LINE (13843, 1148-3)-(X248+3, YISB), 
Ch,8F 

BB0 LINE (X24B, VIXB)-(X24843, Y248-3),CH 
BF 

890 RETURA 

920 REM SUBROTINA QUE ESCREVE 

930 REM NA PAGINA DE ALTA RESOLUCAO 
950 REM PARAMETROS: 

MO REM XY - COORD, MENSAGEM 
970 REM CJ - COR DE FUNDO 

980 REM CC - COR CARACTERES 
990 REM HS — MENSAGEM 

1010 OPEN “GRP:” FOR OUTPUT AS H 

1020 PSET (Xt8, Y48),CJ 

1030 COLOR CC 

1040 PRINT 1, HS 

1050 CLOSE H1 

1080 RETURN 


CPU 


—— JOGOS & HIGH SCORES 


Nesta seção, publicaremos os high scores 
de jogos e dicas de como melhorar o seu 
desempenho e ajudá-lo a salvar todas as 
princesas, planetas e demais seres que vi- 
vem em perigo, implorando nossa ajuda. 


HIGH SCORES 


ALIEN 8 49% 
BOULDER DASH 55.848 
BUCK ROGERS 310.900 
CHORO Q 42.380 
CIRCUS CHARLIE 1.198.400 
ELIDON 94% 
FLIGHT DECK 6.410 
GALAGA 850.000 
INTERNATIONAL KARATE 999.999 
KING'S VALLEY 5.642.600 
KNIGHT MARE 238.020 
LAZY JONES 149.650 
OH SHIT 76.250 
POLAR STAR 289.900 
PYRAMIDE WARP 820.758 
RIVER RAID 73.450 
ROAD FIGHTER 998.675 
ROLERBALL 3.120.180 
SCION 501.100 
SOCCER 40-0 
SUPER COBRA 6.348.460 
SWEET ACORN 9.990 
TIME BANDITS 176.050 


Se você já obteve um high score mais 
alto dos aqui apresentados, ou em qual- 
quer outro jogo, envie-nos sua pontuação 
acompanhada de alguma comprovação, 
como fotografia da tela ou descrição das 
fases percorridas, para que possamos pu- 
blicá-la, juntamente com o seu nome. 

Se você é fera, nada mais justo do que 
o seu nome constar .na seção de High 
Scores de CPU. 

Os jogos que oferecem facilidades adi- 
cionais, com tiro múltiplo, vidas infinitas, 
etc., só serão considerados na sua versão 
original. 





0 REM 

1 REM REVISTA CPU - MAIO 1968 

2 REM AUF MONTY 

3 REM LEITOR PARA MIL VIDAS 

10 CLS:KEYOFF:COLORIO, à, 1 2SCREENZ 

20 OPEN"GRP:"FORQUTPUTASHI 

30 FORX=1TOZ:PSET(29+1+X,106),POINTSTEP 
(0,0):PRINTHT, +CHR$(34)"AUF UIFDERSEHEN 
MONTY "+CHRS (34) :NEXTX 

40 COLORTI:FORV=1TOZ:PSET(50+1+,140),1 
SPRINTHI, CT =) IMUNIDADE TOTAL. ":NEXTU 

41 COLORI:FORE=1TOZSPSET(S0+1+E,140),P 
DINTSTEP (0,0) :PRINTRI,"2 =) VIDAS INFIN 
ITAS.":NEXTE 

42 COLORI]:FORU=1TOZ:PSET(50+1+,180),P 
DINTSTEP(O,0):PRINTHI, “3 =) NORMAL. “:NE 

XTUZCLOSER] 

50 AS=INPUTSCI) 

60 IF AS="1"THENTOO 











90 GOTO 50 


100 BLORD"NONTY",RzBLORD"HONTY2" R:BLO 
AD“HONTY3",R 

NO BLORO"MONTY: BLORD"MONTYS”",R 

120 BLORD"HONTYS” :DEFUSR=8H8700:POKERHA 








C60,240:POKEAH9B0B, 0:POKERHA97O, 240: A=U 
SR(0) 

130 BLORD"MONTYI",R:BLORD"MONTY2º R:BLO 
ADºMONTY3",R=BLORD“MONTY4",R 

140 BLORD"KONTYS” RzBLOAD"MONTYS”:DEFUS 
R=8H8700:POKERHA970,240:R=USR(1) 

150 BLORD"HONTYI”, RzBLORD“MONTY2" jREBLO 
RD“MONTY3” REBLORD"MONTY4”,R 

160 BLORD"MONTYS” R:BLOAD"MONTYS”,R 
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0 REM 

1 REM ZANHO 

2 REM LEITOR PARA VIDAS INFINITAS 

10 CLS:KEYOFF:COLORIO, 1,1 2SCREENZ 

20 OPEN“GRP=“FOROUTPUTASEA 

30 FORX=ITOZ:PSET(50+1+X, 104) POINTSTEP 
(200,5) :PRINTHI, +CHRSC34) "TANAC"+CARSCS 
4): NEXTX 

41 COLORIT:FORV=ITOZEPSET(50+ +, 160),P 
DINTSTEP(O,0):PRINTRI,"] -) VIDAS INFIN 
ITRS."ENEXTV 

42 COLOR :FORU=1TOZ:PSET(SO++U, 180), 
DINTSTEP (0,0) :PRINTHI, "2 -) NORMAL. “NE 
XTUECLOSERI 

SO AS=INPUTSC]) 













60 IF A$="i"THENTOO 
70 IF AS="2"THENIZO 
90 GOTO 50 


100 ELOAD"CAS:":POKERH9654,0 
NO DEFUSR=8HDOOO:A=USR (O) 
120 BLORD"CAS:”,R 

130 BLOAD"CAS:",R 


REh 

REM GALAGA 

REA LEITOR PARA HAIL VIDAS 

10 CLS:KEVOFF:COLORIO, 1,1 ESCREENZ 

20 OPEN“GRP:"FOROUTPUTASEN 

30 FORX=ITOZ:PSET(50+1+X, 106) POINTSTEP 
(200,5) :PRINTHI, +CHRS(34) "GALAGA”+CARS( 
34) ENEXTX 

41 COLORII:FORV=ITOZEPSET(SO++V, 160), P 
DINTSTEP(0,0):PRINTRI, "E -) VIDAS INFIN 
ITAS.“:NEXTV 

42 COLORII:FORU=ITOZ:PSET(50+i +, 18 
DINTSTEP (0,0) :PRINTHI, "2 -> NORM 
XTU:CLOSER? 

50 AS=INPUTSCT) 


0 
hi 























60 IF TºTHENTOO 
70 IF AS="2ºTHENISO 
90 GOTO 50 


100 BLORO"CAS 
NO BLOAD'CAS:" 

120 POKE AH9152,0 

130 DEFUSR=PEEK (SHFCCO ) 4256+PEEK (BHFCBF 
) 

140 A=USR(O) 

150 BLORD"CAS:",R:BLORD"CAS:",R 





O RES 
7 REA PROFANATION 

2 REM LEITOR PARA Hit VIDAS 
2COLORIO, 1, TESCREEND 
TPUTASH 
:PSET(50+14%, 106), POINTSTEP 
(200,5):PRINTHI , +CHRS(34) “PROFANATION+ 
CHR$(G4) :NEXTX 

47 COLORTISFORV=]TAZIPSET(SOF+V,140),? 
DINTSTEP(O,0):PRINTAI, “3 =) VIDAS INFIN 
ITAS. ":NEXTY 

42 COLORIIEFORU=1TO23PSET(SO+4+U,180),P 
OINTSTEP(O,O):PRINTHI, "2 =) NORMAL. "SN 
XTUSCLOSERI 

50 AS=INPUTSC1) 

60 IF R$="1"THENIOO 

70 IF AS$="2ºTHENISO 

90 GOTO 50 

100 BLORD"CAS:“ R:BLORD"CAS:",RzBLORD"C 
DKERHCOB4, 240 
LORD"CAS:”,REBLORD"Ci 
BLORD"CAS:",REBLORD'CAS 























DAD"C 


O REX 

1 REA BOUNDER 

2 REA LEJTOR PARA HIL VIDAS 
10 CLS:KEVOFF :COLORIO, 1,1 :SCREENZ 

20 OPENGRP:"FOROUTPUTASE! 

30 FORX=ITOZ:PSET(50++X, 104), POINTSTER 
(200,5) :PRINTHI, +CHRS(34) "BOUNDER"+CHRS 
(34) :NEXTX 

41 COLOR :FORV=ITOZ:PSET(S0+1+V,160),P 
OINTSTEP (0,0) :PRINTH, "1 -) VIDAS INFIN 
ITAS.“:NEXTV 

42 COLORII:FORU=1TOZ:PSET(50++U,180),P 
DINTSTEP (0,0) :PRINTHI “2 -) NORMAL. “NE 
XTU:CLOSERI 

50 AS=INPUTSCI) 

60 IF AS="1"THENI0O 

70 IF AS="2"THENTIO 

90 GOTO 50 

100 BLORD"CAS:”,R:BLORD"CAS:":POKESHBCO 
7,200:DEFUSR=408700:A=USR O 
TIO BLORD"CAS:",R:BLOAD"CAS: 
AS:",R:BLOAD"CAS:”,R:BLOAD"CAS 














BLOAD"C 
R 
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CURSO DE MÚSICA - Volume 1 
Editora Aleph - 144 Páginas - 
14x21 cm 
Barbieri, Piazzi 


Não tem sentido tentar se aprender 
teoria musical sem se tocar um instru- 
mento. A maioria das pessoas, porém, por 
não disporem de tempo e paciência sufi- 
cientes para adquirir uma razoável habili- 
dade num instrumento qualquer, margina- 
lizam-se do maravilhoso mundo da músi- 
ca. Neste caso limitam-se, se muito, ao 
papel de passivos ouvintes. 

Com o advento do MSX, porém, este 
ouvintes passivos passam a dispor de um 
eficientíssimo instrumento musical de 3 
vozes que vai lhes permitir aprender mú- 
sica interagindo (com um instrumento 
musical tradicional) sem que haja necessi- 
dade de um adestramento psicomotor. 

O objetivo principal deste livro não é o 
ensino de programação, apesar disso aca- 
bar ocorrendo de forma suave e didática. 
mas sim o aprendizado, por parte do lei- 
tor, da teoria musical em si, transforman- 
do-o num ouvinte ativo e em certos casos, 
até num compositor de talento! 








100 DICAS PARA MSX 
TÉCNICAS E TRUQUES DE 
PROGRAMAÇÃO 
Editora Aleph — 191 Páginas — 
14x21 em 
Renato da Silva Oliveira 


Visando facilitar a programação em 
Basic, poupando tempo e esforço, o livro 
apresenta listagens de programas que po- 
derão ser utilizadas pelo programador em 
sub-rotinas 

Dividido em 7 capítulos (teclado, ví- 
deo, som, cassete, impressora, drive e 
processamento), torna-se indispensável 
para quem deseja aproveitar todos os re- 
cursos disponíveis do MSX, explorando 
assuntos que não se encontram nos ma- 
nuais que acompanham o equipamento. 





LIVROS 


DRIVES LEOPARD DE 3 1/2” 
NOVOS HORIZONTES 
PARA O SEU MSX 
Editora Aleph — 120 Páginas 
13x18 em 
Carvalho Jr., Oliveira, Pjazzi 


Destinado aos usuários de drives de 3 
1/2", ou de qualquer drive de 5 1/4”, ou 
possuidores de acionador Leopard modelo 
DT 300 ou DT 350, da Technoahead, o 
livro fornece, de maneira objetiva e clara, 
informações necessárias para operação 
com o sistema operacional MSXDOS e 
Disk Basic. 

Todas as instruções do MSXDOS e do 
Disk Basic são comentadas, sendo forne- 
cidos exemplos e comentados os possíveis 
casos de erro que poderão ocorrer. 

Uma grande ênfase é dada à progra- 
mação com os comandos específicos do 
Disk Basic, e do MSXDOS, dando total 
suporte ao programador. 





Solicite 05 programas constantes desta revista 


gravados em disco de 5 1/4”, 





tempo com a digitacao. 


Para receber 0 disco em sua residencia, envie 





um cheque no valor de Cz$ 1.000,00, nominal a 


Aguia Informatica. 


nao perdendo 





29 





30 


Jawbrake 


CÉSAR MATTOS 


Este jogo foi baseado no velho Pac 
Man. 

Para fazer pontos, você deverá comer 
todas as vitaminas espalhadas pela tela, 
tomando cuidado com os guardiães que 
tentam impedir, a todo o custo, o seu ob- 
Jetivo. 

Preste atenção na parte central da tela 
e tente apanhar as super vitaminas que de 
vez em quando aparecem. 

Para jogar, use as setas. 


Eu TIME=0:KEYOFF:CLS:CLERRI000:SCREENT, 
DRI5,1, 1:CL5:0NSPRITEGOSUE92O: OPEN 
E RbuTeuTAst: STRIG(O)ON 

30 A$ “FRESTORET100:FORX=1TON GER 
ERDDS:AS=AS+CHRS (VAL ("ABC +LEFTS(DS,8))) 
40 B5=BS+CHRSCVAL ("AB"+RIGHTS(0S,8))) 
50 NEXTXESPRITES(0)=A8+85 

d0 AS=""288="":RESTOREI270:FORK=ITOTSR 
ERDOS:AS=AS+CHRS(VAL ("4B"+D5))ENEXTX:SP 
RITES(1)=AS 

70 “VARIAVEIS 

80 TT=0:TP=0:CH=3 

90 M=154:N=36: CONRDENADAS 

100 *APRESENTACAO 

NO 60SUB1 480 

120 SCREENZ 

130 PRESET(B4, 76) :COLORIZ 
DIA SOFT" :PRESET(SA, 90)ECOLORT: Rita, 
“apresenta 
135 PRESFT(85,77):COLORIZEPRINTRI, PARCO 
DIA 5 S 1):COLORZ:PRINTES 
“apresenta” 

738 LINE(78,70)-(185, 70):LINE(?5,105)-1 
185,105):LINE(78,70)-(78,105)3L INECIBS, 
70)-(185,105) 

139 LINE(78,7D-(1 
































FLINE(7E,106)-( 





185,106)3L 79,108) :LINE(186, 
71)-(186,106) 
140 FORV=1TOZ:FORXI=60T01802PUTSPRITES, 
(X1,50):NEXTXI 


150 FORX=70TO106:PUTSPRITEA, (180,X),12, 
OZNEXTX 

160 FORXI=150TOBOSTEP=1:PUTSPRITEA, (XI, 
1403,12,0:NEXTX 

170 FORX=106TO6OSTER = :PUTSPRITES, (65,X 
1, 12,0:NEXTX 


180 NEXTV 

190 PUTSPRITES, (-30,255),12,0:LFPLAVCO) 
THENGOTO190 

200 SCREENS:COLOR, 1:CLS 

210 LINE(15,0)-(235,230),2,8 

220 FORG6=1T02:Y=02V1=0:A=RND(1)X1342:1 
FA=7THENA=6 

230 FORX=1TOIO 

240 COLORA:YI=VI+62Y=V+4:PSETISHAI, 
1470), 1:PRINTHI MIDSC" Jaubreake”,X,1) 
250 SOUND? 56:SOUNDE, 15:FORK=1TOZOSTEP4 
2 SOUNDO,K$5:NEXTK 

260 PUTSPRITES, (6+7+1,100),8,0 

270 NEXTX:A=RNO(1)X13+2:LFA=7THENA=O 
280 Y=Y1+Y+19:FORK=10TONISTEP-1 

290 20:PSET (4+Y,70), 1:COLORA:PRINTA 
1,MIDSC jaubreake”,X,1) 

300 PUTSPRITES, (4+Y,100),A,0 

310 FORK=20TOISTEP-4:S0UNDO  K4S:NEXTKEN 
EXTX 

320 ONSTRIGGOSUB 1470 

330 NEXTGS 

o RT DEE 








PRINT" a 
TEPRINTSTRINGS(22, 220): PUTSPRITES, (22, 





802,:3,0 

350" PUTSPRITES, (122,80),6,0 

360 LOCATEI,22:PRINT'Pres, barra de esp 
ao p/jogar”;2:FORK=1TOZO00:NEXTX:COLOR, 

+ :6OT0200 

370 “CENÁRIO 

380 COLORIS, |:SCREENZ:SPRITEONESTRIG(O) 


TSEPRINTHI, "JAUBRE 
KER": COLORIZSPRESET (150,1) SPRINTA, STR 
INGS(CH, CHRS(249) ) COLOR A3PRESET(GO, 17 
5)2PRINTHI, "ARCADIA SOFT 1986":COLORIS 
395 COLOR?:PRESET(4], 1):PRINTHI, “UANBRE 
AKER":COLORIZ:PRESET(150, 1) :PRINTHI, STR 
INGS(CH, CHRS(249) ) COLOR 4ZPRESET(GO, 17 
6):PRINTHI, "ARCADIA SOFT 1984":COLORIS 
400 FORX=ITO3ELINE(30-K, 12-1)-(220-X,17 
2-X),12,B:NEXTX 

AJO LINE(50,30)-(200,30),4 

420 LINE(50,50)-(200,50),4 

430 LINE(50,70)-(200, 70), 4:LINE(50,90)- 
(200,90), 4:LINE(50, 110)-(200, 110), 4:LIN 




















Am 130)-1200,:50) dC INE(SO, 








' 9,CHR$(176)) NE) 
445 ONINTERVAL=:500505U61450 
o “co NOO da sn60 





490 IFULATHENDOSUBRAO 
500 IFUCATRENCOSUBOSO 
510 1FW>BTHENI DSUBB40 
520 IFVISTHENUDSUBATO 
30 IFUCIOTHENDOSUSSSO 





590 IFV(ÓTHA 

600 IFWC4TRENGOSURASO 
610 IFWE THEN GOSUB 840 
620 1FVISTHENSOSUBA7O 
430 LFNCIOTRENGOSUBSSO 
640 IFWBTRENGOSUBADO 


650 IFUCSTHENGOSUB9OO 
660 IFULSTHENGOSUBOIO 


970 GOSUB720 

686 NEXTX 

690 AR=AND(T HA 

700 FORX=2T010:PUTSPR 
FRCXTR: IFARCITRENGOTOS5O 
710 GoTOSao 

















7% 
LIZABCODCER 





1255041801 4BLBGL 80 4CLGALGL3 
PRESET(4O, 1) IPRINTRT, "JANBRERR: 
T2:PRESET(150,1):PRINTHI, STRINGS(CA, CHR 
S(249)):COLORIS 

820 RETURN 

830 “IMPRESS.00S INIMIGOS 








840 PUTSPRITES, (X2,303,10 
850 PUTSPRITES, (X1,10),12 






860 PUTSPRITES, (X1,50),13,0:RETURN 

B70 PUTSPRITES, (X2,70),8,0:RETURK 

B80 PUTSPRITE?, (XI 190),2,O3RETURN 
R 





1,0: EUR TESUTOZOMSTERS DUNDO, VARND(1 42 
SEPUTSPRITEI 0 AN,MD,RNDCTIKT, TENEXTY SOU 


AKER 2COLORIZEPRESETCISO, 
INGS(CA, CHRS(249) 










2PRINTHI,STRIA 
FPRESET(BO, pis 










"FIM DE JOGO"sPRESE 
USINGC8BMR PT; SPRINT 







1030 IFPLAYC 
a RUN 
“DD. 










T(74, 77): :COLORI: PRINTHL,PT; 
T0200:HEXTSCOLDRT: ESET 
STRINGS 3, CHRS(2I9)) 20 





INTRI,STRINGSCI9, CHRSCI 9: 
EO: INTERVALONSRE TURA 
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1200 DATi 
iZ10 DATA 
1220 DA 
1230 dA 
1240 DATR O 
1250 DATR 1070101010101010 
1260 
1270 DATA 15 
1280 DRTR 511 
7290 DATA 10071001 

O DATA 1017101 





E)EPRINTHO, CHARS 





1340 DATA 
1350 
1360 DA 








ASSINE CPU 


Para fazer a assinatura da revista CPU, preencha o cupon abaixo, 
em letra de forma, remetendo-o a Aguia Informática Ltda. 


A cobrança sera efetuada atraves do Banco Bamerindus, nao sendo 
necessario o envio de dinheiro. 


O valor da assinatura, de seis meses, e de Cz$ 1.100,00. 


Dados para faturamento: 


nome: 

endereço: 

bairro: 

cidade: estado: cep: 











